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ABSTRACT 


I 


The  discrete  nonlinear  spectral  model  developed  by  A1 lender, 
Barnett,  and  Lybanon  {froc.  Symp.  on  Wave  Dyn.,  Plenum  Press, 
1982)  is  applied  to  seven  ideal  cases  of  wind  wave  generation. 
These  cases  form  the  basis  of  an  international  stu^y  to  compare 
wave  prediction  models, HiasseTmann  et  al.,  Proc.  Symp.  on  Wave 
Dyn.,  Plenum  Press,  1982).  Model  results  are  summarized 
graphically  for  each  case,  as  applicable,  and  a  brief  explana¬ 
tion  of  model  behavior  is  given. 

The  model  is  free  of  numerical  dispersion  and  damping,  and 
reproduces  the  JONSWAP  relations  for  fetch-  and  duration-limited 
wave  growth  quite  well.  Model  results  from  cases  with  increasing 
complexity  provide  a  benchmark  for  understanding  model  behavior 
in  actual  situations  and  for  future  improvements. 


f 

{ 


[ 


^Accession  For 
NTIS  GRA&I  ~ 

DTIC  TAB  ^ 

Unannounced  q 

Justification _ 


By _ _ _ 

Distribution/ 

j  A  v  v  1 1 i a  b . 2 i * v  Codes 
|  u.-.-ii  a::.;/or 

Dist  i  L^-ciaL 


A 


i 


ACKNOWLEDGEMENTS 


T.P.  Barnett  Is  thanked  heartily  for  being  an  enthusiastic 
and  optimistic  collaborator  throughout  this  project.  Isaac 
Traxler  did  all  of  the  computer  graphics.  Michael  Stlrgus  and 
Richard  Myrlck  put  the  plots  into  final  form.  Joyce  Ford  Is 
thanked  for  typing  the  manuscript. 


ii 


CONTENTS 


Page 


LIST  OF  ILLUSTRATIONS  v 

LIST  OF  TABLES  vl 

I.  INTRODUCTION  1 

II.  PRESENTATION  OF  MODEL  RESULTS  3 

A.  CASE  I,  Propagation  3 

B.  CASE  II,  Fetch-limited  Growth  4 

C.  CASE  III,  Oblique,  Fetch-limited  Growth  7 

D.  CASE  IV,  Ninety  Half-Plane  8 

£.  CASE  V,  Frontal  Passage  9 

F.  CASE  VI. A,  Stationary  Hurricane  10 

G.  CASE  VI. B,  Moving  Hurricane  13 

H.  CASE  VII,  Directional  Relaxation  14 

III.  SUMMARY  15 

IV.  REFERENCES  16 

V.  TABLE  OF  MATHEMATICAL  NOTATION  17 

APPENDIX  A1 


ill 


A  SUMMARY  OF  CALCOMP-COMPATIBLE  PLOT  PROGRAMS  FOR  THE  WAVE  MODEL 


Isaac  Traxler 

Computer  Sciences  Corporation 
NSTL  Station,  MS  39529 

Page 

A.  Introduction  and  History  of  Plot  Programs  A2 

B.  Program  PLOTWM  A4 

1.  Significant  Wave  Height,  Peak  Frequency,  and  Mean 
Direction  vs.  Fetch 

2.  Spectrum  (1-D)  vs.  Frequency  with  Time  or  Fetch  as  Family 
Parameter 

3.  Spectrum  (2-D)  vs.  Frequency  with  Direction  as  Family 


Parameter 

C.  Mean  Direction  Contour  A39 

D.  E/EPM  Contour  A50 

E.  Mean  Frequency  Contour  A64 

F.  Average  Frequency  Contour  A76 

G.  Spectrum  (2-D)  Contour  A88 

H.  General  Custer  (Arrow)  Diagram  A105 


-Magnitude  is  Variance,  Direction  is  Mean  Wave  Direction 


lv 


Figure  1. 

Figures  2-15. 
Figure  16. 
Figures  17-33. 
Figure  34. 
Figures  35-49. 
Figure  50. 
Figures  51-63. 
Figure  64. 
Figures  65-84. 
Figures  85-104. 
Figures  105-109. 


LIST  OF  ILLUSTRATIONS 


Model  Output  Points,  CASE  II  19 
Model  Results,  CASE  II  20 
Model  Output  Points,  CASE  III  27 
Model  Results,  CASE  III  28 
Model  Output  Points,  CASE  IV  37 
Model  Results,  CASE  IV  38 
Model  Output  Points,  CASE  V  46 
Model  Results,  CASE  V  47 
Model  Output  Points,  CASES  VI.A-B  54 
Model  Results,  CASE  VI. A  55 
Model  Results,  CASE  VI. B  67 
Model  Results,  CASE  VII  78 


v 


APPLICATION  OF  A  DISCRETE  NONLINEAR  SPECTRAL  MODEL  TO 
IDEAL  CASES  OF  WIND  WAVE  GENERATION 


I.  INTRODUCTION 

A  variety  of  wave  prediction  models  have  been  developed  In  recent  years.  These 
models  differ  considerably  In  the  w ay  they  represent  various  physical  processes  and 
also  In  their  manner  of  dealing  with  all  the  messy  details  Inherent  In  realistic 
wave  prediction. 

In  order  to  assess  model  performance  and  Identify  critical  areas  for  future 
research  efforts,  a  joint  Investigation  among  wave  modelers  was  undertaken.  Nine 
groups  of  modelers  applied  their  models  to  seven  Ideal  cases  of  wind  wave  generation 
and  then  conducted  a  detailed  Intercomparison  of  model  results.  A  preliminary 
report  of  the  model  Intercomparison  was  given  at  the  Symposium  on  Wave  Dynamics  and 
Radio  Probing  of  the  Ocean  Surface,  Miami,  FL,  May,  1981.  The  final  report  appears 
In  the  proceedings  of  that  symposium  (Hasselmann,  et  al.,  1982). 

NORDA  Code  331  was  one  of  the  participants  In  the  Intercomparison.  We  applied 
the  discrete  nonlinear  spectral  (DNS)  model,  developed  by  Code  331  In  collaboration 
with  T.P.  Barnett  of  Scripps  Institute  of  Oceanography,  to  the  Ideal  cases.  The 
model  physics  and  underlying  philosophy  is  described  In  Al lender  et  al .  (1982).  A 
detailed  description  of  the  model  computer  program  IsOgiven  In  NORDA  Technical  Note 
147. 

For  the  present  model  we  assume  that  Input  from  the  atmosphere  Sjn  and  weak, 
nonlinear  Interactions  among  waves  Snj  are  the  dominant  source  terms  that  govern 
the  growth  of  the  wave  spectrum.  Dissipation,  l.e.,  any  process  that  removes  energy 
from  the  surface  wave  field,  enters  only  through  a  prescribed,  maximum  spectral 
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density  that  depends  on  the  local  wind  speed.  The  form  of  Sfn  yields  an 
exponential  growth  mechanism,  consistent  with  linear  feedback  theories.  The 
magnitude  of  Sjn  Is  consistent  with  the  minimum  suggested  by  Snyder  et  al.  (1981). 
The  nonlinear  interactions  are  represented  by  a  set  of  empirical  orthogonal 
functions  that  decompose  a  body  of  exact  calculations  that  were  made  for  a  family  of 
single-peaked  spectra  with  different  peakedness  and  angular  spread.  Thus,  the 
representation  for  Sni  depends  crudely  on  spectral  shape.  The  Pierson-Moskowltz 
spectrum  with  its  peak  at  the  local  wfnd  frequency,  but  with  a  variable  energy  level 
and  a  cos2  angular  spread  with  respect  to  the  wind  direction,  Is  used  as  the 
spectral  limiter.  Some  additional  constraints  (on  the  rate  of  change  of  the 
spectrum  and  on  where  in  frequency  and  direction  to  apply  the  limiter)  are  also 
required  to  obtain  stable  spectra.  These  constraints  are  borne  out  of  the  mismatch 
between  the  relatively  large  amount  of  information  that  ought  to  be  present  in  the 
2-D  wave  spectrum  and  the  relatively  low  level  of  sophistication  used  to  represent 
physical  processes  affecting  wave  growth. 

The  algorithm  used  for  propagation  is  generally  the  most  complicated  aspect  of 
numerical  methods  in  wave  models.  We  use  an  adaptation  of  the  method  of 
characteristics  to  avoid  the  numerical  damping  and  dispersion  problems  that  are 
typical  of  finite  difference  methods.  The  wave  field  is  quantized  as  sets  of 
frequency -direction  particles  that  move  along  parallel  rays  in  given  directions  and 
at  the  group  velocities  of  the  given  frequency  components.  The  rays  are  thought  of 
as  directed  line  segments  that  connect  equally  spaced  ray  points.  A  net  of  grid 
points  is  also  defined  over  the  physical  domain  to  introduce  the  wind  field,  to 
accumulate  values  of  the  2-D  spectrum  and  to  compute  the  source  terms.  Reciprocal 
relationships  between  nearest  neighbor  ray  and  grid  points  then  form  the  backbone  of 
the  overall  algorithm. 
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The  primary  purpose  of  the  present  note  Is  to  describe  briefly  and  to  present 
all  pertinent  DNS  model  results  obtained  for  the  Ideal  cases.  The  note  stands  as  a 
record  of  model  performance,  and  can  be  used  to  better  understand  the  effect  of 
modifications  to  the  DNS  model  and  the  results  of  future  model  applications.  The 
format  for  the  remainder  of  the  note  Is  a  case  by  case  presentation  of  results. 

II.  PRESENTATION  OF  MODEL  RESULTS 
A.  CASE  I,  PROPAGATION 

The  DNS  model  uses  an  adaptation  of  the  method  of  characteristics  to 
propagate  spectral  density  (which  Is  proportional  to  surface  displacement  squared 
per  elemental  frequency  and  direction  Increments).  The  purpose  of  CASE  I  was  to 
reveal  numerical  damping  and  dispersion  Inherent  in  the  numerical  algorithm,  which 
by  definition  should  be  no  larger  than  roundoff  error  in  the  present  model. 

We  tested  the  model,  however,  by  comparing  results  with  an  analytical 
solution.  If  we  assume  that  spectral  density  F  propagates  in  direction  x  with 
(group)  velocity  Cg  and  can  grow  in  an  exponential  fashion  controlled  by  a 
constant,  say  B,  then 

+  Cg'I  =  BF  (1) 

subject  to  initial  and  boundary  conditions  on  0  _<  x  _<  L.  For  simplicity  we  take 
F(0,t)  =  K  and  F(x,0)  =  g(x). 

Then  the  solution  to  (1)  is 

F(x,t)  =  exp(Bt)  g(x-Cqt)  x  >_  Cgt  (2) 

K  exp(Bx/Cg)  x  <  Cgt  (3) 

Specifically,  in  the  interval  0  <  x  L: 


1.  If  t  <  L/Cg  there  are  two  regimes 

F(x,t)  propagates  the  initial  condition  and  grows  it  exponentially  In 
time  for  x  Cgt,  F(x,t)  =  eBt  g(x  -  Cgt) ;  - 

F(x,t)  Is  constant  in  time  but  increases  exponentially  with  distance 
for  x  <  Cgt,  and 

2.  If  t  >  L/Cg  then  "information"  from  x  =  0  has  had  time  to  reach  all 

points  in  [0,  L],  and  F(x,t)  =  KeBx/Cg  everywhere. 

We  specified  a  constant  boundary  condition  for  several  frequencies  and 
directions  and  ran  the  model,  suppressing  all  source  functions  for  spectral  density 
except  for  atmospheric  input  (which  is  proportional  to  BF).  At  first  the  model 
solution  did  not  agree  with  Eqs.  (2) -(3).  An  error  in  the  linkage  arrangement 
between  ray  and  grid  points  was  discovered  and  corrected  (see  A1 lender  and  Lybanon, 
1982,  Secs.  II. A,  IV. A,  and  V.A  for  details  on  ray-grid  concept).  The  corrected 
model  satisfied  Eqs.  (2)-(3)  to  within  round-off  error  in  our  tests  and  we  concluded 
that  the  model  propagates  energy  at  the  specified  group  velocities  without 
significant  numerical  damping  or  dispersion. 

B.  FETCH-LIMITED  GROWTH 

The  results  of  comprehensive  studies  of  wave  growth  under  fetch-limited 
conditions  (Hasselmann  et  al . ,  1976)  provide  benchmarks  for  evaluating  the 
performance  of  wave  prediction  models.  In  this  case  we  have  appriori  knowledge 
about  the  relationships  among  variance,  peak,  fetch,  and  time,  and,  to  a  lesser 
extent,  some  quasi -equilibrium  form  for  the  growing  wind  sea  spectrum  (Hasselmann  et 
al.,  1976). 

The  physical  setting  for  CASE  II  was  a  1000  x  1000  km  square  ocean.  Initially 
at  rest,  subjected  to  a  constant  offshore  wind  of  20  m/s.  The  upwind  boundary  was 
treated  as  a  shoreline  (solid),  whereas  the  other  three  boundaries  were  perfect 


absorbers.  Table  1  gives  the  frequencies,  directions,  and  other  model  parameters 
that  were  used.  Fig.  1  gives  a  schematic  of  the  domain  and  the  locations  selected 
for  model  output. 


Model  results  for  CASE  II  are  summarized  in  Figs.  2-15.  The  figures  are 
largely  self-explanatory  and  a  table  of  mathematical  notation  is  included  as  Sec. 
V. 


TABLE  1 

MODEL  PARAMETERS  FOR  CASES  II -V 


Domain 

1000  by  1000  km;  no  flux  condition  on  S  boundary  with 

perfect  absorption  for  outgoing  rays  on  W,  N,  E 

boundaries,  initially  at  rest. 

Grid 

50  km,  regular 

-  . 

Rays 

30  parallel  rays,  ea.  dir. 

35-40  km  ray-point  spacing 

Time  Step 

1200  sec 

Run  Time 

40  hr 

Frequencies  (20) 

.045,  .05, . 08,  .09 . 16, 

.18,  .225,  .25  hz 

Directions  (24)1 

0,  15,  30,  ...,  330,  345° 

*A  resolution  of  45°  was  used  in  the  half  plane  opposite  the  wind  direction  in 
CASES  1 1 - 1 V  and  in  the  SE  quadrant  in  CASE  V. 
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Key  results  for  this  simulation  are  given  In  Figs.  2-3,  which  show  variance  E* 
and  peak  frequency  fp*  vs.  fetch  x*  (all  variables  nondimensional )  for  successive 
times  during  the  growth  of  the  spectrum.  Good  agreement  with  the  JONSWAP  relations 
(plotted  in  the  figures)  is  found  over  most  of  the  fetch.  Such  agreement  is  a 
significant  improvement  over  previous  spectral  models.  Notably,  the  model 
reproduces  the  JONSWAP  relations  by  combining  processes  that  depend  on  five  indepen¬ 
dent  variables  (f,9,x,y,t)  and  without  tuning  of  the  model  parameters.  Model 
spectra  are  still  fetch-limited  at  x*=l. 34(10?).  A  fetch  of  about  x*=1.6(10?) 
would  be  required  for  full  development.  Figs.  4  and  6  show  the  behavior  of  E*  and 
fp  vs.  t*.  As  seen  in  Figs.  2,  3,  4  and  6,  the  model  E*  and  fp*  values  scatter 
somewhat  for  fetches  less  than  about  two  grid  lengths  because  the  gradients  in  the 
wave  field  are  not  resolved.  The  situation  is  similar  to  that  occurring  in  discrete 
hydrodynamical  modeling,  but  not  as  severe  because  some  wave  components  actually  can 
grow  to  their  limit  in  just  a  few  temporal  or  spatial  steps.  To  reduce  the  spatial 
truncation  errors  we  ran  a  short  test  on  a  200  x  200  km  domain  with  a  10  km  grid  and 
a  10  min  time  step,  and  all  other  model  parameters  as  before.  With  this  five-fold 
increase  in  resolution  there  is  no  scatter  in  E*  or  fp*  at  short  fetches  as  shown 
in  Figs.  5  and  7,  respectively.  In  practical  cases  the  difficulty  could  be 
corrected  altogether  by  simply  setting  the  high  frequencies  to  their  limiting 
values,  as  described  in  Allender  et  al.,  1982,  Sec.  3. 

The  times  at  which  the  wave  field  becomes  fetch-limited  agree  well  with  a 
simple  relation  that  can  be  derived  from  the  JONSWAP  duration  law  reported  by 
Hasselmann  et  al .  (1976).  To  use  this  relation  we  assume  that  the  fetch-limited 
domain  expands  at  the  group  velocity  of  the  peak  frequency.  Then  the  extent  of  the 
fetch-limited  domain  Xp|_  as  a  function  of  time,  starting  with  no  wind  sea,  is 
found  to  be: 
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(4) 


Xpi_  =  0.0021  t*(lO/D 
using  a  constant  drag  coefficient  of  1.8(10"3)  to  convert  to  U*.  The  tiroes  at 
which  E*  and  fp*  become  time-dependent  in  Figs.  2-3  are  predicted  well  by  Eqn.  (4) 
for  x*>1.34(106) .  This  prediction  accurately  Implies  that  che  present  model  also 
follows  the  JONSWAP  duration  laws. 

Figs.  8-9  provide  a  convenient  summary  of  the  development  of  variance  and  peak, 
normalized  by  the  'final'  values  defined  according  to  the  Plerson-Moskowitz 
spectrum,  vs.  both  fetch  and  time.  A  smooth  progression  of  E*  and  fp*  values  Is 
seen  except  for  short  fetches  as  explained  in  the  preceeding  paragraphs. 

The  development  of  1-0  model  spectra  (energy  density  vs.  frequency)  is  shown  In 
Figs.  10-11.  The  peak  enhancement  factor  (cf.  Hasselmann  et  al.,  1976)  of 
one-dimensional  model  spectra  decreases  more  or  less  monotonical ly  from  about  2.7  to 
1.5  between  x*=1.34(106)  and  x*=l. 34(10?).  Wave  components  greater  than  about 
1.3-1. 4  fp*  tend  to  reach  their  limiting  values  as  the  model  spectra  develop.  So, 
the  high  frequency  side  of  the  spectrum  follows  an  f-5  slope  except  in  a  narrow 
band  to  the  right  of  the  peak.  In  this  band  densities  are  somewhat  higher  than  for 
corresponding  JONSWAP  spectra,  perhaps  because  Snet  Is  not  allowed  to  be  negative 
here. 

Examples  of  2-D  model  spectra  are  given  in  Figs.  12-15.  Some  of  the  raggedness 
typical  of  short  fetches  shows  up  as  well  as  the  perfect  symmetry  imposed  by  the 
limiting  form  of  the  spectrum  at  long  fetches. 

C.  CASE  III,  OBLIQUE  FETCH-LIMITED  GROWTH 

The  physical  domain  and  model  configuration  were  the  same  as  for  CASE  II 
(1000  x  1000  km  square  ocean,  model  parameters  as  in  Table  1),  except  that  the  wind 
blew  at  an  angle  of  45°  seaward  off  the  straight  coastline.  A  sketch  of  the  domain 
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and  output  points  is  given  in  Fig.  16.  The  primary  item  of  interest  was  whether  the 
model  predicted  skew  spectra  at  short  fetches  (perpendicular  to  the  shoreline).  A 
secondary  Interest  was  growth  with  distance  as  measured  in  the  wind  direction 
(toward  NE)  starting  from  the  SE  corner  of  the  domain.  Presumably  this  growth 
follows  the  same  fetch  law  as  in  CASE  II. 

All  of  the  model  results  prepared  for  the  model  intercompari son  are  presented 
in  Figs.  17-33. 

Growth  with  distance  downwind  (Fig.  27)  compares  well  with  growth  for  the 
corresponding  fetches  from  CASE  II  (Fig.  10).  The  raggedness  in  2-D  spectra  caused 
by  irregularities  in  fp*  at  short  fetches  is  evident  in  Fig.  28,  for  example.  The 
model  does  indeed  predict  skew  spectra  for  areas  close  to  the  shoreline  with  long 
alongshore  fetches.  Fig.  30  demonstrates  this  skewness  with  higher  frequencies 
aligned  with  the  wind  direction  (45°)  and  lower  frequencies  running  nearly  parallel 
to  the  shoreline  (90°). 

D.  CASE  IV,  WINDY  HALF-PLANE 

The  model  domain  was  a  1000  x  1000  km  square  ocean,  initially  at  rest, 
subject  to  a  constant  wind  of  20  m/s  in  the  left  (western)  half  plane,  and  no  wind 
in  the  right  (eastern)  half  plane  (See  Table  1  for  model  parameters).  Fig.  34  gives 
a  sketch  to  locate  output  points.  The  overriding  purpose  of  this  case  was  to 
examine,  qualitatively,  at  least  the  propagation  of  swell  into  the  half  plane  with 
no  wind. 

All  of  the  model  results  extracted  for  the  intercomparison  are  shown  in  Figs. 
35-49.  A  visual  Impression  of  growth  of  variance  and  the  average  angle  of  the 
spectrum  appears  in  the  so-called  'General  Custer'  plot.  Fig.  37.  (Participants  In 
the  International,  wave  model  study  seemed  quite  willing  to  carry  along  this  dubious 


name,  although  some  of  them  were  not  familiar  with  the  historical  background.)  The 
model  response  Is  symmetric  about  the  N-S  centerline  of  the  wlncty  half  plane. 

Swells  propagate  Into  the  calm  half  plane,  their  energetic  constituents  being  more 
aligned  with  the  wind  direction  as  fetch  Increases.  The  ragged  2-D  spectrum  at 
short  fetches  Is  again  exemplified  in  Fig.  38.  Some  locations  show  two  almost 
distinct  swell  spectra,  e.g..  Fig.  45,  a  somewhat  unrealistic  situation  that  Is 
modified  by  geometric  dispersion  in  actuality. 

Detailed  behavior  in  the  eastern  half  plane  seems  to  depend  primarily  on  two 
things:  1)  the  basic  growth  curve  followed  by  spectral  components  under  constant 
wind,  and  2)  the  assumed  angular  distribution  for  the  limiting  spectrum,  especially 
as  It  affects  larger  fetches.  The  behavior  also  depends  on  the  strength  of  coupling 
among  different  wave  directions  through  our  representation  for  nonlinear  transfer. 

E.  CASE  V,  FRONTAL  PASSAGE 

The  model  domain  was  a  1000  x  1000  km  square  ocean,  initially  at  rest, 
subject  to  a  constant  S  wind  of  20  m/s  below  the  SW-NE  bisector  of  the  domain  and  an 
E  wind  of  20  m/s  above  the  bisector.  {See  Table  1  for  model  parameters.)  Fig.  50 
sketches  the  situation  and  locates  the  selected  output  points.  This  case  was 
designed  primarily  to  test  the  manner  in  which  the  model  wave  field  responded  to  a 
change  in  wind  direction,  now  known  as  'directional  relaxation'. 

Figs.  51-63  were  prepared  for  the  intercomparison.  The  overall  response  can  be 
seen  quickly  In  Fig.  52,  the  General  Custer  diagram.  The  variance  grows  with 
Increasing  fetch  toward  the  north  until  the  front  Is  crossed.  The  variance  drops, 
then  the  average  wave  direction  relaxes  to  the  new  direction,  as  the  variance  grows 
again.  The  relaxation  Is  faster  for  less  developed  spectra,  y*  about  0.25(107), 
than  for  more  fully-developed  spectra,  y*  about  0.75(107). 
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In  retrospect  we  think  that  the  drop  In  variance  upon  crossing  the  front  is 
unrealistic,  although  the  average  angle  response  hit  the  middle  ground  among  all  the 
different  wave  model  results  (Hasselmann  et  al.,  1982).  Directional  relaxation  in 
the  model  is  affected  by  the  nonlinear  transfer  term  in  the  model  equations,  which 
is  applied  with  respect  to  the  average  wave  direction  (not  wind  direction).  Also,  a 
variety  of  logic  statements,  used  in  applying  the  limiting  spectrum  affect  the 
relaxation  process  through  imposed  (and  sometimes)  abrupt  changes  in  spectral 
density  at  various  f  and  0.  Some  rethinking  of  the  model  is  necessary  here,  as 
well  as  comparison  of  model  behavior  with  limited  theory  and  observations,  such  as 
they  are. 

In  this  very  complex  case  bi modal  seas  arise  in  the  SW  part  of  the  domain  above 
the  front,  e.g.,  Fig.  56.  This  behavior  was  seen  in  most  of  the  models  tested  in 
the  intercomparison.  Some  isolated  spurious  peaks  were  noted,  especially  in  the  NW 
part  of  the  domain,  e.g.,  Fig.  60.  These  peaks  were  apparently  caused  by  temporary 
changes  to  the  model  (Allender  and  Lybanon,  1982),  made  in  lieu  of  using  some 
mechanism  for  subgrid  scale  wave  growth.  Looking  back,  it  seems  likely  that  subgrid 
growth  would  have  contributed  to  a  more  reasonable  overall  response  to  this  case. 

F.  CASE  VI  A,  STATIONARY  HURRICANE 

Two  model  hurricanes  were  studied.  The  (synthetic)  wind  field  (prepared  by 
V.  Cardone,  Oceanweather,  Inc.,  White  Plains,  N.Y.)  was  the  same  for  both  cases 
except  that  the  storm  was  stationary  in  CASE  VI  A  and  translated  at  15  m/s  to  the 
north  In  CASE  VI  B.  The  spatial  distribution  of  wind  speed  and  direction  was 
patterned  after  a  northward-moving  hurricane,  with  a  maximum  speed  of  40  m/s  located 
50  km  northeast  of  center,  a  pronounced  east-west  wind-speed  asymmetry  (stronger 
east  of  center)  and  a  pronounced  north-south  wind-direction  asymmetry  (more  Inflow 
in  rear  quadrants). 
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The  model  domain  was  defined  as  27CK  x£  1030  km  east-west  by  70(k  y<  1700  km 
north-south  with  a  grid  spacing  of  40  km  (selected  to  resolve  the  wind  field). 

Table  2  gives  other  pertinent  model  parameters.  The  stationary  storm  was  located  at 
(650,  1400)  for  a  duration  of  24  hr.  The  parametric  hurricane  model  by  Ross  (1976) 
was  used  for  initial  and  boundary  conditions  throughout  the  run.  The  Ross  model 
defines  the  total  energy  and  peak  frequency  at  any  point  In  a  hurricane  in  terms  of 
the  wind  speed  and  radial  distance  from  the  eye.  The  directional  spectrum  In  that 
model  Is  taken  to  be  of  JONSWAP  type  with  a  cos^  spread  relative  to  the  local  wind 
direction.  In  addition  we  set  the  spectrum  fully-developed  initially  at  the  eye  in 
this  case.  Clearly,  the  Ross  method  colored  our  results,  because  of  the  relatively 
small  model  domain  that  was  chosen  out  of  necessity  (maximum  number  of  grid  points 
without  recoding).  We  are  encouraged,  however,  by  the  reasonable  results  that  we 
obtained  in  both  cases. 

Figure  64  shows  the  relative  locations  of  selected  output  points.  Figs.  65-84 
were  prepared  for  the  model  Intercomparison.  Significant  wave  heights  between  9  and 
10  m  (Fig.  65)  and  average  frequencies  of  about  0.1  hz  (Fig.  66)  occur  roughly 
northeast  of  the  eye  of  the  storm.  The  high  average  frequencies  along  the  southern 
boundary  are  artifacts  produced  by  our  treatment  of  the  source  terms.  If  the  wind 
speed  is  less  than  5  knots,  no  atmospheric  input  is  added.  If  no  low  or  mid 
frequency  bands  contain  significant  energy  the  nonlinear  transfer  will  pump  energy 
from  the  spectral  tails  (assumed  to  be  present  for  frequencies  greater  than  the 
maximum  model  frequency)  into  high  model  frequencies.  The  average  spectrum 

,  frequency  then  turns  out  to  be  relatively  high  as  evidenced  in  the  average  frequency 
plots. 

i 

I 

I 
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Oomal n 


Time  Step 


Run  Time 


TABLE  2 

MODEL  PARAMETERS  FOR  CASES  VI  A-B 


E-W  extent:  270-1030  km;  N-S  extent:  700-1700  km;  parametric 
hurricane  model  (Ross,  1976)  used  for  boundary  and  initial 
conditions;  perfect  absorption  for  outgoing  rays 


40  km,  regular 


30  parallel  rays,  ea.  dir.,  25-35  km  ray-point  spacing 


1200  sec 


24  hr 


Eye  of  Storm 


Initial  position:  (650,  1400)  km  for  VI  A,  (650,  104)  km  for 
VI  B;  final  position:  (650,  1400)  km 


Frequencies  (20)  .045,  .05,  ....  .08,  .09 . 16,  .18,  .225,  .25  hz 


Directions  (24) 


0,  15,  30,  ..., 


330,  345 


The  General  Custer  plot,  Fig.  67,  gives  some  Impression  of  the  overall  model 
response  to  the  vortical  wind  field. 

G.  CASE  VI  B,  MOVING  HURRICANE 

The  second  model  hurricane  translated  northward  at  15  m/s.  Otherwise,  the 
wind  field  and  model  parameters  were  the  same  as  for  CASE  VI  A  (see  Sec.  III.G  and 
Table  2).  The  model  domain  was  really  much  too  small  for  this  case  and  ;he  boundary 
conditions  Imposed  via  the  model  by  Ross  (1976)  affect  the  solution  markedly. 

The  locations  of  model  output  points  are  given  In  Fig.  64  and  all  of  the  plots 
for  the  model  Intercompari son  are  given  In  Figs.  85-104.  Significant  wave  heights 
for  this  case  reach  9-9.5  m.  Fig.  85,  almost  as  large  as  for  the  previous  case,  but 
in  the  right  rear  quadrant  of  the  storm.  Most  of  the  models  give  this  response, 
thought  to  be  reasonable  by  hurricane  aficionados,  but  field  data  from  a  fast-moving 
hurricane  are  required  for  confirmation.  Mean  frequencies.  Fig.  86,  drops  as  low  as 
0.1  hz,  roughly,  and,  as  explained  in  Sec.  III.F,  the  relatively  high  mean 
frequencies  near  the  boundaries  are  artifacts  of  the  way  in  which  the  source  terms 
are  treated.  (Actually  these  high  means  may  be  quite  reasonable.)  Spectra  with 
wild  directional  properties  contribute  to  the  messy  appearance  of  the  General  Custer 
diagram.  Fig.  87.  The  clear  vortical  pattern  seen  In  CASE  VI  A,  Fig.  85,  Is  no 
longer  apparent. 

Cardone  found  the  present  case  very  inconclusive  when  he  compared  different 
model  outputs  because  of  the  many  confounding  variables  (Hasselmann  et  al.,  1982). 
Growth  rates  for  the  spectrum  and  directional  relaxation  are  the  key  contributors  to 
the  model  response.  Simulating  hurricanes  is  a  very  practical  business  and  future 
testing  of  the  model (s)  should  Include  applications  using  real  wind  and  wave  data 
from  severe  storms. 
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H.  CASE  VII,  DIRECTIONAL  RELAXATION 

The  large  differences  among  model  results  for  the  previous  cases  pointed 
toward  a  simpler  test  of  directional  relaxation.  In  an  unbounded  ocean  area  subject 
to  a  constant  wind  of  20  m/s  and  with  a  partially-  or  fully-developed  wave  spectrum 
the  wind  shifts  Instantly  by  90°;  the  ensuing  model  response  is  termed  directional 
relaxation  in  a  so-called  ‘duration-limited1  (rather  than  ‘fetch-limited') 
situation.  T.  Barnett  of  SIO  conducted  part  of  this  test  using  the  same  spectral 
balance  as  in  the  full  wave  prediction  model  but  without  the  propagation  algorithm 
and  all  its  trappings. 

Figures  105-108  describe  the  response  of  the  simplified  model  following  a  90° 
wind  shift  from  N  to  W  when  the  sea  is  fully-developed  (fm  =  fu  -  .13  g/U). 

Below  the  spectral  peak  the  spectrum  changes  very  slowly  (Figs.  107-8).  It  retains 
high  energy  and  with  nowhere  to  propagate  dominates  the  growth  after  t=0.  Indeed, 
mean  frequency  f0  remains  small  and  variance  E  (Fig.  105)  drops  so  the  nonlinear 
terms  (proportional  to  E3f08  )  cannot  grow  the  mid  range  frequency  very  rapidly. 

In  real  life  the  'swell'  would  propagate  away  and  much  more  rapid  growth  would  be 
evident  at  mid-range  frequencies.  Between  fp  and  fcut  the  spectrum  Is 
Immediately  limited  by  the  local  fully  developed  sea.  Thus  the  energy  between  N  and 
E  is  lost  and  that  between  N  and  W  is  limited  by  a  cos2  distribution  centered  on 
W.  The  growth  in  this  frequency  range  is  slow,  however,  for  the  reasons  noted 
above.  Above  fcut  the  local  sea  is  set  to  that  expected  for  the  local  wind,  i.e., 
a  subgrid  growth  mechanism  Is  used.  The  Implied  turning  times,  are  crudely  In 
balance  with  theory:  "Swell"  is  unaltered;  waves  traveling  slower  than  the  wind 
respond  rapidly.  We  could  add  some  finesse  in  dealing  with  the  mid  range 
frequencies  but  choose  not  to  until  we  see  the  results  of  some  more  realistic  tests 
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(on  actual  data).  As  Indicated  with  regard  to  CASE  V  {Sec.  III.  E),  the  drop  In 
variance  associated  with  the  effects  of  the  limiting  spectrum  on  mid  frequencies  Is 
probably  unrealistic,  and  some  rethinking  Is  necessary.  On  the  bright  side,  real 
winds  take  several  hours  to  switch  by  90°  at  least  over  the  spatial  scales  resolved 
by  most  wave  prediction  models,  so  this  problem  may  be  less  severe  than  It  first 
appears. 

III.  SUMMARY 

We  have  applied  the  discrete  nonlinear  spectral  model  to  seven  Ideal  cases  of 
wind  wave  generation  as  part  of  an  international  study  to  compare  wave  prediction 
models.  Our  primary  purpose  Is  to  save  the  results,  which  were  costly  in  personnel 
and  computer  time,  for  future  reference.  The  primary  areas  we  see  for  model 
Improvement  and  rethinking  are  subgrid  scale  growth  mechanisms  and  appropriate 
behavior  under  rapidly  changing  winds.  A  study  using  actual  wind  and  wave  data 
seems  essential  In  order  to  really  assess  model  capabilities.  The  effects  of 
uncertainties  In  the  wind  field  should  be  quantified,  also. 
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V.  TABLE  OF  MATHEMATICAL  NOTATION 


Common  notation  was  established  for  the  intercomparison.  Symbols  used 
in  the  text  and  the  figures  are  summarized  below. 


(f.O) 

(x,y) 

g 

t 

u 

9u 

F(f.e) 

F(f) 

Fmax 

E 


fU  (°r  fPM) 


f 


P 


f 


o 


e 


i 

I 


I 


Wave  component  frequency  and  direction 
Spatial  coordinates 
Acceleration  of  gravity 
Time 

Wind  speed  (m/s) 

Wind  direction 

2-D  wave  spectrum 

1-D  wave  spectrum,  /FdQ 

Maximum  value  of  1-D  or  2-D  spectrum, 

according  to  context 

Variance  of  sea  surface  displacement, 

//  FdfdQ 


Wind  frequency,  .13  g/U,  peak  of 
Pierson-Moskowitz  (PM)  spectrum 
Peak  frequency  of  1-D  spectrum  (determined 
by  quadratic  fit  in  model) 

Mean  frequency  of  spectrum,  JJfF  dfde 
Mean  direction  of  spectrum. 


tan”* 


// 

If 


sin9  F  df  d9 


cos9  F  df  d© J 
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i 


fpm(W 


epm 

f 

f* 

t* 

x* 

E* 


°g2  (2’r)‘4(fpM)-5  with  a  =  .0081, 

i.e.,  peak  of  PM  spectrum 
°g2  (2?r  fp|v|)”4(V5)»  i.e.,  variance  of 
PM  spectrum 

f/fp 

U+f/g ,  U*  =  0.855  m/s  with  UlQ  =  20  m/s 

gt/u 

fx2/U* 

g2  e/u5 
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Figure  2. 

Model  results.  Case  II 
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Model  results.  Case  II 
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Figure  8. 

Model  results.  Case  II 
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Model  results.  Case  II 
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Model  results,  Case  II 
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Model  results,  Case  II 


Figure  16.  Model  output  points.  Case  III 
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Model  results.  Case  III 
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Model  results.  Case  III 
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Figure  19. 

Model  results.  Case  III 
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Figure  20. 

Model  results.  Case  III 
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Figure  23. 

Model  results.  Case  III 
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Figure  24. 

Model  results.  Case  III 
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Figure  29. 

Model  results.  Case  III 
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Figure  30. 

Model  results,  Case  III 
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Figure  34.  Model  output  points.  Case  IV 
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Model  results.  Case  IV 
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Model  results.  Case  IV 
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Figure  37. 

Model  results.  Case  IV 
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Figure  38. 

Model  results.  Case  IV 
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Model  results.  Case  IV 
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Figure  40. 

Model  results.  Case  IV 
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Model  results.  Case  IV 
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Model  results.  Case  IV 
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Model  results.  Case  IV 
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Figure  46. 

Model  results.  Case  IV 
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Figure  49.  Model  results.  Case  IV 
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Figure  51 . 

Model  results.  Case  V 
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Model  results.  Case  V 
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Model  results.  Case 
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Model  results.  Case  V 
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Model  results.  Case  V 
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Figure  64.  Model  output  points 


N 

▲ 


(875,  1625) p 
% 

/ 

0(750.  1500) 

/ 

(700,  1450) 


(700,  1350) 

\ 

0  (  750.  1300) 

\ 

* 

(875,  1125)  'fe 


,  Cases  VI.A-B 


54 


y(km) 


Hs,0  CASE  Vi  DNS  MODEL 

T  -  2'l  hr  STORM  Si'EED  -  0  m/s 

4^  it00  ^  ^  ^  ^  ^  ^ 

y, 

, .  ,  .  linm 

*  t  i  t  •  \ 

*  t  /  <  t  »  v.  t  T  T  \ 

/  /  4  I  * 

i  4  I  I  t  %  **^^^**<*///  /  /  fT 

*  (  i  i  > 


»■  /  / 


7001— 

250 


*  +  *  r  /  /  /  /  / 
»#^////// 
<«////>// 


x(km) 


Figure  67.  Model  results,  Case  VI. A 
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Model  results.  Case  VI. A 
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Model  results.  Case  VI. A 
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Model  results,  Case  VI. A 
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Model  results.  Case  VI. A 
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Model  results.  Case  VI. A 
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Model  results.  Case  VI. A 
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Model  results.  Case  VI. A 
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Model  results.  Case  VI. A 
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Figure  84.  Model  results,  Case  VI. A 
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Figure  87.  Model  results,  Case  VI. B 
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Model  results.  Case  VI. B 
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Model  results.  Case  VI. B 
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Model  results.  Case  VI. B 


SCALED  2-D  SPECTRUM  F(f,9) 

Fmax 

CASE  VI 

DNS  KODEL:  Fmax  =  341.6  m2/hz-pad 
7  =  24  hr 

(X,Y)  =  750,  1300  kk 
STORM  SPEED  **  15  m/s 


Figure  96. 

Model  results.  Case  VI. B 
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Model  results.  Case  VI. B 
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Model  results.  Case  VI. B 
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Model  results.  Case  VI. B 
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Model  results,  Case  VI. B 
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Model  results.  Case  VI. B 
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Model  results,  Case  VI. B 
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Model  results.  Case  VII 
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Model  results.  Case  VII 
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A.  INTRODUCTION 


The  following  documentation  is  divided  up  into  sections.  Each  major 
section  is  a  separate  program.  Each  program  includes  a  short  text  description, 
an  input  data  description,  a  variable  definition  section,  a  program  listing, 
and  an  example  plot.  The  variable  list  is  included  with  each  one  instead  of 
overall  because  the  meaning  of  variables  change.  Unfortunately  the  programs 
were  not  designed  with  a  global  variable  usage  plan  in  mind. 

Whenever  possible  subroutines  were  borrowed  from  one  program  to  make 
another  program  easier.  Most  of  the  tape  I/O  is  done  in  READS  and  READJS. 

All  the  contour  plots  are  created  by  passing  parameters  to  CONTUN.  CONTUN 
is  a  contourplot  creating  subroutine  that  has  obviously  been  implemented  on 
several  different  machines  using  several  different  plot  packages.  The  included 
version  works  on  Calcomp  compatible  systems. 

The  plot  programs,  like  the  wave  model,  run  on  a  CDC  6600  using  a  60-bit 
word.  The  programs  are  dependent  on  the  word  size  because  of  the  data  tape. 

The  data  is  packed  on  the  tape  two  values  per  sixty  bits.  This  fact  causes 
the  programs  to  be  machine  dependent  since  they  must  separate  out  the  data. 

All  text  is  used  assuming  10  characters  per  word  may  be  stored.  Only  changes 
to  dimensions  and  subscripts  would  be  necessary  to  alter  this. 


The  following  programs  allow  some  of  the  data  produced  by  the  DNS  WAVE 
Model  to  be  graphically  displayed.  These  programs  evolved  over  a  long  period 
of  time.  At  first,  a  program  was  written  that  produced  a  few  simple  curve 
plots.  Their  original  purpose  was  to  allow  the  results  of  the  model  to  be 
interpreted  easier  and  more  fully.  One  by  one  separate  sections  were  added 
to  this  and  eventually  contour  plotting  programs  were  written.  As  time  passed 
these  programs  were  altered  continuously  to  extract  more  information  about  the 
model.  At  some  point  the  Wave  MODEL  Intercomparison  Workshop  became  a  reality. 
Shortly  thereafter,  a  preliminary  version  Wave  Modeler's  Newsletter  was 
released.  It  contained  a  list  of  "standard"  plots  that  each  participant 
should  attempt  to  produce.  These  programs  began  to  drift  in  that  direction. 
Whenever  time  permitted  they  were  altered  so  that  they  would  correspond  to 
the  plot  requirements. 

As  time  went  by  several  newsletters  were  written.  Some  of  them  contained 
new  plot  requirements.  "Corrections"  were  constantly  being  issued  to  the  existing 
requirements.  New  programs  were  written  to  produce  these  plots.  Old  programs 
were  modified.  The  final  result  is  the  following  collection  of  programs.  They 
were  never  created  with  the  idea  of  a  plot  package  in  mind.  They  simply  evolved 
to  meet  the  changing  requirements. 

With  a  certain  amount  of  study,  these  programs  can  be  altered  to  produce 
an  extremely  large  variety  of  plots.  Before  attempting  to  change  them  or  even 
use  them,  I  recommend  that  the  user  become  very  familiar  with  the  format  of 
the  history  and  summary  tapes. 
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B.  PROGRAM  PLOTWM 

This  program  produces  six  different  plots.  The  plots  are  chosen  via  a 
plot  type  number  followed  by  appropriate  data  cards.  Some  of  the  plots  have 
the  ability  to  display  multiple  curves  that  are  user  selectable.  All  plots 
can  be  run  separately  or  in  conjunction  with  others.  A  plot  may  be  run 
several  times  in  one  execution  run.  The  following  is  a  list  of  plots  that 
the  program  can  produce:  Significant  Wave  Height,  Peak  Frequency,  Mean 
Direction,  1-D  Spectrum,  and  2-D  Spectrum. 

The  significant  Wave  Height  plot  displays  a  theorectical  curve  and  an 
observed  curve  (program  calculated)  on  an  axis  system  of  Significant  Wave 
Height  vs.  fetch.  The  axes  are  labeled  and  provide  for  a  title  as  well  as 
providing  for  an  overall  title  at  the  top  of  the  graph. 

The  Peak  Frequency  section  produces  a  graph  with  two  curves,  one  theo¬ 
retical  and  one  observed.  The  X-axis  corresponds  to  fetch  and  the  Y-axis 
corresponds  to  frequency.  Axis  labeling,  axis  titling  and  overall  titling 
is  also  provided. 

The  Meafr  Direction  section  plots  a  single  curve,  mean  direction,  with  the 
axes  being  direction  and  fetch.  The  same  labeling  capabilities  exist  for  this 
routine  as  above. 
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1-D  Spectrum  plots  can  display  multiple  curves  on  one  graph.  Three 
different  routines  exist  to  do  1-D  Spectrum  plots.  The  first  one  does  1-D 
Spectrum  plots  at  final  time  step  with  grid  point  as  family  parameter.  A 
second  section  allows  time  as  a  family  parameter  and  uses  only  one  grid 
point.  A  third  section  of  code  allows  any  single  time  to  be  chosen  and 
uses  grid  point  as  a  parameter.  This  one  was  written  so  that  plots  could 
be  made  that  were  not  at  the  final  time  step.  It  is  slower  than  the  first 
since  it  uses  the  history  tape  rather  than  the  summary  tape. 

The  2-D  Spectrum  section  produces  a  graph  similar  to  the  others  in 
format  using  direction  as  the  family  parameter.  Any  time  step  is  allowable 

This  program  has  two  primary  sections.  The  first  section  requests  pri 
mary  data  arid  takes  care  of  most  overhead.  The  second  part  of  the  program 
requests  a  plot  type  number  and  then  turns  control  over  to  each  separate 
section  of  the  program.  Each  plot  type  requires  further  input.  At  the 
end  of  the  section  the  program  returns  to  requesting  a  plot  type  number. 
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’I*-*}****- 


INPUT  DATA  LIST  FOR  PLOTWM 


FORMAT 

VARIABLE 

DESCRIPTION 

7110 

FACMAIN.FAC1 ,FAC2, 
FAC3,FAC4,FAC5, 

FAC6 

FACMAIN  is  the  overall  scale  factor  for  all  plots 
the  other  values  are  multiplied  times  FACMAIN  for 
each  particular  plot,  FACT  corresponds  with  plot 
type  1,  FAC2  corresponds  with  plot  type  2,  etc., 
FAC5  is  also  used  for  plot  type  7. 

110 

NGRID 

Number  of  grid  points  wave  model  used  in  gen¬ 
erating  data  tape. 

8110 

NF,(FREQ( j), 
j=l >NF,1 ) 

NF  is  number  of  frequencies,  FREQ  is  an  array 
containing  a  list  of  frequencies. 

110, 7F1 0.0  ND, (DIR(k), 

/, (8fi0.0))k=l ,ND,1 ) 

ND  is  number  of  directions,  DIR  is  direction 
list. 

2F10.0 

U,D 

U  is  wind  speed  and  D  is  wind  direction 

1 10,1  Ox, 
3(il0,F10.0) , 
(4(110, F10.0) 

NS, (NOSTA(i ) , 

Y ( i ) ,  1=1, NS, 1) 

NS  is  number  of  stations,  NOSTA  is  station  list, 

Y  is  a  list  of  fetches,  each  Y(i)  is  Associated 
with  NOSTA (i ) . 

2F10.0 

SF ( 1 ),SF(2) 

Scale  factors 

2110 

ILP, IPL 

If  ILP&IPL  both  equal  0  then  default  values 
used,  otherwise  0  implies  false  and  1  implies 
true. 

no 

IPTYPE 

If  IPTYPE=0  then  program  stops,  values  1  thru 

7  select  plot  types. 

PLOT  TYPE  1 

SIGNIFICANT  WAVE  HEIGHT 

8A10 

TITLE ( i ),i=3,10 

Title  of  plot,  appear  across  top  of  plot 

110, 10x,6A10 

NXCHAR, XLABEL 

NXCHAR  is  number  of  characters  in  X-axis  label, 
XLABEL  is  the  label  of  X-axis. 

I10,10x,6Al0 

NYCHAR, YLABEL 

NYCHAR  is  number  of  characters  in  Y-axis  label, 
YLABEL  is  the  Y-axis  label. 

PLOT  TYPE  2 

PEAK  FREQUENCY  PLOT 

8A10 

TITLE(i ) ,1=3,10 

TITLE  is  label  displayed  at  top  of  plot. 

I10,10x,6A10 

NXCHAR.XLABEL 

NXCHAR  is  number  of  characters  in  XLABEL, 

XLABEL  is  the  X-axis  label. 

I10,10x,6Ai0 

NYCHAR, YLABEL 

NYCHAR  is  the  number  of  characters  in  Y-axis 

label,  YLABEL  is  the  Y-axis  label. 
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PLOT  TYPE  3 

MEAN  DIRECTION  PLOT 

FORMAT 

VARIABLE 

DESCRIPTION 

8AI0 

TITLE(i ) ,i=3,10 

TITLE  is  the  title  of  the  plot. 

I10,l0x,6A10 

NXCHAR, XLABEL 

NXCHAR  is  the  number  of  characters  in  XLABEL, 
XLABEL  contains  actual  X-axis  label. 

I10,10x,6A10 

NYCHAR, YLABEL 

NYCHAR  is  the  number  of  characters  in  the 
Y-axis  label,  YLABEL  is  the  Y-axis  label. 

PLOT  TYPE  4 

1-D  SPECTRUM 

8A10 

TITLE ( i ) ,i=3,10 

TITLE  is  title  of  plot. 

I10,10x,6A10 

NXCHAR.XLABEL 

NXCHAR  is  the  number  of  characters  in  XLABEL, 
XLABEL  is  the  X-axis  label 

I10,10x,6A10 

NYCHAR, YLABEL 

NYCHAR  is  the  number  of  characters  in  YLABEL, 
YLABEL  is  the  Y-axis  label 

110 

NDU 

If  NDU=1  then  non-dimensional  units  are  used, 
else  dimensional  units  are  used. 

no 

NS1D 

Number  of  stations  to  be  plotted. 

8110 

N01 D ( i ),i  =  l ,NSID,1 

Station  list,  up  to  ten  station  numbers  to  be 
plotted. 

PLOT  TYPE  5 

1-D  SPECTRUM 

8A10 

TITLE ( i )  ,i=3,10 

TITLE  is  the  title  of  the  plot 

I10,10x,6A10 

NXCHAR.XLABEL 

NXCHAR  is  the  number  of  characters  in  XLABEL, 
XLABEL  is  the  X-axis  label 

I10,10x,6A10 

NYCHAR.YLABEL 

NYCHAR  is  the  number  of  characters  in  YLABEL, 
YLABEL  is  the  Y-axis  label 

110 

NDU 

If  NDU=1  then  non-dimensional  units  are  used, 
else  dimensional  units  are  used 

8110 

NSTEP, ( ITIME( i ) , 
i=l .NSTEP.l ) 

NSTEP  is  number  of  time  steps  to  be  plotted, 
ITIME  is  a  list  of  time  steps  to  be  plotted. 

no 

1  NOR DPT 

The  grid  point  number  to  be  plotted. 

I 
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INPUT  DATA  LIST  FOR  PLOTWM  (Cont'd) 


PLOT  TYPE 

6. 

2-D  SPECTRUM 

FORMAT 

VARIABLE 

DESCRIPTION 

8A10 

TITLE(i ) ,i=3,10 

TITLE  is  the  title  of  the  plot. 

I10,10x,6A10 

NXCHAR, XLABEL 

NXCHAR  is  the  number  of  characters  in  XLABEL, 
XLABEL  is  the  X-axis  label. 

I10,10x,6A10 

NYCHAR.YLABEL 

NYCHAR  is  the  number  of  characters  in  YLABLE, 
YLABEL  is  the  label  of  the  Y-axis. 

no 

INGROPT 

The  grid  point  number  that  is  to  be  plotted. 

no 

ITSTEP 

The  time  step  number  to  be  plotted. 

8110 

NSO, ( IOIR(i ) ,i=l , 
NSD.l) 

NSD  is  the  number  of  directions  to  be  plotted 
I DIR  is  the  array  of  directions 

PLOT  TYPE 

1-D  SPECTRUM 

no 

NSTEP 

Time  step  to  be  plotted. 

no 

NGRDPTS 

Number  of  grid  points  to  be  plotted. 

8110 

GRDPTS(i ),i=l , 
NGRDPTS 

Array  containing  list  of  grid  points  to  be 
plotted. 

I10.7A10 

NCHAR,TITLE(i ) 
i=3,9 

NC’  !  is  number  of  characters  in  TITLE, TITLE 
is  uhe  title  of  t.he  plot. 

I10.7A10 

NXCHAR.XLABEL 

NXCHAR  is  the  number  of  characters  in  XLABEL, 
XLABEL  is  the  X-axis  label. 

I10.7A10 

NYCHAR.YLABEL 

NYCHAR  is  the  number  of  characters  in  YLABEL, 
YLABEL  is  the  label  of  the  Y-axis. 

no 

NDU 

If  NDU=1  then  non-demensiona I  units  are  used 
else  dimensional  units  are  used. 

no 

NSTEP 

Time  step  selected. 
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VARIABLE  LIST  FOR  PLOTWM 


SS(2) 

FREQ(20) 

DIR (36) 

V(IOO) 

SF(2) 

BUFFER (1511) 

CURVE (100, 10)  - 

TITLE(IO) 

XLABEL(6) 

YLABLE(6) 

SI  D ( 500 , 20 ) 

FM(500) 

TAR(IOO) 

NSTAR 

USTAR 

BFPM 

G 

NOSTA(IOO) 

LUN(2) 

NOID(IO) 

NB 

NX 

NY 


Real,  scale  factors,  hold  default  values  of  1.0 

Real,  array  containing  list  of  frequencies  in  hz 

Real,  array  holding  directions  in  degrees 

Real,  array  containing  a  list  of  fetch  values  to  cor¬ 
respond  to  station  list 

Real,  actual  scale  factors,  used  to  scale  Y(fetch) 

Real,  used  as  input  buffer  to  hold  SREC  off  of  summary  tape 

Real,  stores  dependent  variable  values  to  be  plotted,  allows 
up  to  10  curves  with  a  maximum  of  100  points  each  to  be  plotted 

Real  (used  as  character),  contains  title  of  plot 

Real  (used  as  character,  contains  label  of  X-axis 

Real  (used  as  character),  contains  Y-axis  label 

Real,  input  buffer  to  hold  1-D  spectrum  off  JSREC  on 
summary  tape 

Real,  contains  Peak  Frequency  for  each  station 

Real,  temporary  array  used  to  hold  independent  variable 
values  for  plotting 

Real,  corresponds  to  N*  in  Wave  Modeler's  newsletter,  nor¬ 
malization  value 

Real,  100*NSTAR 

Real,  corresponds  to  in  newsletter 

Real,  gravity 

Integer,  list  of  station  numbers  to  correspond  to  Y(list 
of  fetches) 

Integer  array  to  hold  logical  unit  numbers 
Integer,  used  to  hold  list  of  station  numbers  to  be  plotted 
Integer,  size  of  BUFFER,  number  of  values  to  read  in 
Integer  size  of  line  printer  plot  in  X  direction 
Integer,  size  of  line  printer  plot  in  Y  direction 
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AD-A11&  168 
UNCLASSIFIED 


NAVAL  OCEAN  RESEARCH  AND  DEVELOPMENT  ACTIVITY  NSTL  S— ETC  F/G  20/4 
APPLICATION  OF  A  DISCRETE  NONLINEAR  SPECTRAL  MODEL  TO  IDEAL  CAS— ETC (U) 
APR  82  J  H  ALLENDER/  M  LYBANON 

NORDA-TN-148  NL 


NGRID 


NEWPAGE 


JSREC 


FACMAIN 


Cl,  C2,  C3 


IPTYPE 


VARIABLE  LIST  FOR  PLOTWM  (Cont'd) 


Integer,  number  of  frequencies 
Integer,  number  of  directions 
Integer,  number  of  grid  points 

Logical,  flag  indicating  whether  or  not  to  do  a  new  page  of  plots 

Logical,  true  if  SREC  has  been  loaded  into  BUFFER 

True  if  JSREC  has  been  loaded  into  SID 

Logical,  true  means  do  a  printer  plot,  false  means  do 
not  do  a  printer  plot 

Logical,  flag  for  plotter  plot 

Real  overall  scaling  factor  for  plots,  used  as  a  multiplier 
in  every  call  to  FACTOR 

Real,  scale  factor  for  plot  type  1,  multiplied  by  FACMAIN 
for  overall  factor 

Real,  scale  factor  for  plot  type  2,  multiplied  by  FACMAIN 
for  overall  factor 

Real,  scale  factor  for  plot  type  3,  multiplied  by  FACMAIN 
for  overall  factor 

Real,  scale  factor  for  plot  type  4,  multiplied  by  FACMAIN 
for  overall  factor 

Real,  scale  factor  for  plot  type  5,  multiplied  by  FACMAIN 
for  overall  factor 

Real,  scale  factor  for  plot  type  6,  multiplied  by  FACMAIN 
for  overall  factor 

Real ,  wi nd  speed 

Real,  direction 

Real,  used  to  hold  temp  results  of  expressions 

Integer,  used  to  indicate  how  LP  should  be  set 

Integer,  used  to  indicate  how  PL  should  be  set;  if  ILP  and  I PL 
are  0  then  default  values  are  used  for  LP  and  PL,  otherwise  a 
1  means  true  and  0  means  false 

Integer,  plot  type 
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VARIABLE  LIST  FOR  PLOTWM  (Cont'd) 


IOFSET 

NDU 


Integer,  used  to  indicate  how  many  words  to  skip  on  input 
of  record 

Integer,  flag  for  non-dimensional  units 


All 


nno 


PROGRAM  PLOTHH 


PROGRAM  PLOTHMt INP JT  ,  OUTPUT,  TAPE5-INPUT,  T  APE  6-OUTPUT  , 

♦  TAP  E l »  T  A  P  E  2  »  TAPE7) 

PROGRAM  TO  GENERATE  PLOTS  DF  BARNETT  HAVE  MODEL  RESULTS* 

REAL  S  S  (  2  )  »  -  RcO(  2)  I  *  DIR(36),  YUOO),  SF(2),  BUFFERC15U) 

REAL  CURVE(IT0»10) ,  TITlE(IO),  XL  ABEL ( 6 ) ,  YLABELC6I 
REAL  S1T( 500,20),  FM(500) 

REAL  TAR(IOO) 

C  T*p  -  rrnPDXARY  ARRAY  JS£0  T3  HOLD  X-AXIS  VALUES  IF  THEY  HAVE  BEEN 
fir NSTAR 

C  NSTaIR  •  CORRESPONDS  TO  N A  USED  IN  CALCULATIONS 
INTEGER  NOSTA(IOO),  LUNt  2  )  ,  NOID(IO) 

.OGICAL  SEWPAGt,  SREC,  LP  ,  PL 
.OGICAL  JSREC 

TATA  G,  SS,  N B  /9.31,  2*L.,  1511/ 

TATA  NCMAR,  TITLEC1),  TITLE12)  /iOO,  2*10H  / 

TATA  NX,  NY  /120,  50/ 

TATA  LJM  / 1 »  2 / 

TATA  NEW*  AGE ,  SREC,  LP,  PL  /.TRUE.*  .FALSE.,  .FALSE.,  .TRUE./ 
TATA  JSREC  /.FALSE./ 

TATA  NSTAR/0.855/ 

TATA  USTAR/85.5/ »B= PM/1351000.0/ 

C 

C  FAC1AIN  -  HH  SCALING  FACTTR  FOR  PLOTS 
C  F ACL  -  SCALING  FACTOR  FOR  P.OT  TYPE  1 

C  FAC 2  -  SCA _ l NG  FACTOR  FOR  P.OT  TYPE  2 

C  FAC 3  -  SCALING  FACTOR  FOR  P.OT  TYPE  3 

C  FAC 4  -  SCALING  FACTOR  FOR  P.DT  TYPE  4 

C  FACS  -  SCA.ING  FACTOR  FOR  P.OT  TYPE  5 

CALL  PL3TS10»Q»7) 

1006  -ORMAT(8=10.G J 

RE  AO (5, 1706)  FACMAIN,FACL,FAC2,FAC3,FAC4,FAC5,F AC6 
C  READ  MOTEL  CONDITIONS. 

READ  15,1000)  NGRIT 

READ  (5,1000)  NF,  ( F REQ l J ) , J-l , NF > 

READ  (5,1000)  NO,  ( 0 IR ( K I , K-l, ND ) 

1000  : ORMAT  ( 1 13, 7F10.0/ (8F10.0) ) 

READ  (5,1002)  U,  D 

HRITE  (5,2000)  NGRID 

2000  : ORMAT  ( l  ML, 45X31 H BARNETT  HAVE  MODEL  PLOT  PROGRAM// 

♦  52XL6HM3DLL  CONDITIONS// 

♦  114, 12H  GRID  POINTS) 

HRITE  (6,2001) 

2001  r  ORMAT  ( /11X11HFKE3UENCIES) 

HRITE  (5,2002  )  (  FR E Q ( J ) , J - 1 , NF ) 

2002  FORMAT  (1X12F10.3) 

■(RITE  (  5,2003  ) 

2003  -ORMAT  ( / l 1X10H0 IR E CT I ONS ) 

HRITE  (5,2002)  (DIR(K),X"1,ND) 

HRITE  15,2004) 

200*  : ORMAT  (/11X24HHINT  SPEED  AND  DIRECTION) 

HRITE  (5,200Z)  U,  T 

READ  (5,1001)  NS,  (NOSTA(I),  Y(II,  I-1,NS) 

1001  =ORMAT  (110,10X3(110, FIT. 0 ) / ( 4 ( 1 10 , F 10. G > ) ) 

READ  (5,1002)  SF 

1002  : ORMAT  (2F10.C) 

IF  (SFU)  .LE.  0.)  SF  ( 1 )  -  SS(i) 

IF  ( S  F ( 2  )  .LE.  0.)  SF ( 2 )  -  SS(2) 

HRITE  ( b, 2005 ) 

2005  FORMAT  ( / / 54 X 1 5HPL TT  PARAMETERS) 

HRITE  (6,2006) 

2006  =ORMAT  (/11X7HF ETCHES) 

HRITE  (  5,2002  )  ( Y ( l ) , I - 1 , NS  I 
HRITE  (5,2007) 

2007  :ORMAT  ( /1IX35MDIS  T  ANCE  AND  VELOCITY  SCALE  FACTORS) 

HRITE  (5,2002)  SF 

J  -  J  P  SF  ( 2 ) 

HRITE  (5,2003) 

2008  FORMAT  ( //22X19HAF TER  SCALING  •  •  •) 

HRITE  (5,2005 ) 

HRITE  (5,2002)  ( Y< I  )  ,  I - 1 , NS ) 

HRITE  (5,2004) 

HRITE  (5,2002)  U,  T 

HRITE (b,?DD9)FACMAIN,FACl  , F AC 2 , F AC  3 , F AC*, F AC 5 , F AC6 
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PROGRAM  PL0TW1 


2009  FORMAT  (34  FA  CHAIN*  3X  ,  5HF  AC  I ,  5X  ,  A  HF  AC2 , 5X  ,4  MF  AC  3  «  5X  ,5HF  AC5  »  5X  , 
♦  <iHt:AC5,5X,5HFACb,/,F7.3,lX,FB.4,5(2X,F7.3)  ) 

C  SECTION  FOR  DIMENSIONED  VARAIBLES 
: 3  -  U**2  /  s 
:i  -  1.5E-3  *  SORT  ( C 3 ) 

C  2  -  2  •  9  <»  *  (G  /  U)  *  C  3  *  *  0*  3 
C  APPLY  SCALE  FACTORS. 

DO  10  I-l.NS 
nil»YCll*SFll) 

10  CONTINUE 

ILP  -  1  CHOOSES  LlMEPRINTER  PLOTS. 

I  PL  -  L  CHOOSES  ZETA  PLOTS. 

ILP  -  I*.  «  D  CHOOSES  DE : AULTS. 

READ  15,10051  ILP,  IPL 
1005  : ORMAT I S 1 10) 


IF  (ILP  • E  3.  0  .AND 
IF  CILP  , E  0.  0)  LP  - 
IF  (ILP  .EQ.  1)  LP  - 
IF  (IPL  .EQ.  0)  PL  - 
IF  (IPL  ,E3.  11  PL  - 
READ  PLOT  TYPE. 

I EAD  (5,1000)  IPTYPE 


AND.  I»L  .EQ.  0 )  GO  TO  2D 
P  -  • F A. S E • 

P  -  • TR JE • 

L  -  .FA.SE. 

L  -  .TR JE. 


IFTIPTYPE  .LE.  0)  CALL  P -OT ( 0. 0 • 0. D , 999 ) 

IF  ( IPTY * E  .LE.  0)  STOP 
C 

SOTO( 30, 130, 2 30, 33 0,530, 530* 530),  IPTYPE 
C  SIGNIFICANT  HAVE  HEIGHT  PLOT. 

30  READ  (5,1003)  (TIT ^E (I), 1-3, 10) 

1003  : ORMAT  (3A10) 

READ  (5, 1004 )  NXCHAR,  XL  A  B  EL 
1005  c  ORHAT  ( I 10.10X6A1D ) 

READ  (5,1005)  NYCHAR,  YL ABEL 
IF  (SREC)  CO  TO  40 

CALL  READS  (cUN(l),  BUFFER,  NB,  NF) 

C 

SREC  -  .TRUE. 

50  IOFSET  -  11 

C  CALCULATE  OBSERVED  AND  THEORETICAL  SIGNIFICANT  HAVE  HEIGHTS. 

DO  53  I  - 1 , NS 
J  -  NOSTA(I)  ♦  IOFSET 
CURVE  (1,1  )*0.05«'SQRT(6UF  =  ER(  J)  ) 

CUR V E ( 1 , 2  )  -  Cl  *  SORT  (  1000. 0  *  Y ( I ) ) 

50  CONTINUE 
C  PLOT  CURVES. 

IF  (LP)  CALL  PLCURV (NS»2»Y, CURVE, 0.0, 0.0, 0.0, 0.0, 

♦  NCHAR, TITLE,  NXC H AR , XL  A  BEL , NY  CHAR , YL ABEL , NEHP AGE ,NX, NY ) 
CALL  FACTOR(F AC1*FACMAIN) 

IF(PL)CA_L  ZPLQT (NS  , 2, Y, CURVE, 0.0, 0.0, 0.0, 0.0, 

♦  0. 0,0, C, NCHAR, TITLE(3I , 

♦  NXCHAR, XLABEL, NYCHAR, YLABEL, 10, 1,6. 5, 0.0, 10. 1,0. 0,6.5) 

P 

SO  TO  20 

r.  * E AX  FREDUENCY  PLOT. 

130  CONTINUE 
C 

RE A0(5, 1003)  (TITLE (I), I -3,10) 

IE  AO  (5,1005)  NXCHAR,  XLABEL 
READ  (5,1005)  NYCHAR,  YLABEL 
IF  (JSREC)  GO  TO  1*0 
C  READ  JSREC. 

CALL  READJS(LUN(1),S10,NF,NGRIO) 

C 

JSREC  -  .TRUE. 

150  CONTINUE 

C  CALCULATE  OBSERVED  AND  T  ME  ORET I  CAL  PEAK  FREQUENCIES. 

CALL  PKFREQ(FREQ,S1D,NS ,NF,FM,NOSTA ) 

C 

DO  150  I ■ 1, NS 

C  FM(l)  IS  TRE  PEAK  FRE3UENCY  FOR  STATION  I 
I  I  -  NOS  T  A (  I) 

CURVE( I » l ) -F N (  I  I  ) 

CURVE(I,2)  -  C2  *  (1000.)  *  Y ( I ) ) * » ( -0. 3 ) 

150  CONTINUE 
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PR0GR4M  PLOTrfl 


C 


C 

C 


C 

C 


PLOT  CUR  YES. 

IF  ( L  P )  :ALL  PLCURDNS, 2, Y, CURVE, 0.0,0. 0,0. 0,0.0* 

♦  NCNAR, TITLE,  NXC NAR , XL ABEL.N YCHA R , YLABEL « HE WP AGE ,NX,NY I 
:ALL  FACTORIFAC2AFACHAIM) 

IF (PLICA. L  Z?L0T(N$ ,2,Y,CJRVE,0.0,0.0,0.0,9.0, 

♦  0.0,3. 0,NCHAR,TI  TLEO)  , 

♦  MXCHAR»XLA3EL  ,  MY  CHAR  ,Y_A BEL, 10.1,6. 5, 0.0, 10. 1,0. 0,6.5) 


;o  TO  20 

SECTION  FOR  MEAN  DIRECTION  PLOT 
230  READ!  5, 1003)  I T I TL E ( I  I , I • 3 , 10, 1 1 
RE  ADI  5, 1004)  NXCHAR,XLABEL 
RE  AO  (5,  1004)  NYCHAR , YLA3EL 
IF  (SREC)  GOTO  240 

CALL  READS(LUN(L),BUF=ER,NB,NF) 

SREC  •  .TRUE. 

240  IOFSET  ■  11  ♦  2»NGR1D 
30  250  I • 1 «  NS  ,  1 

J  -  NDSTA(I)  ♦  IOFSET 

CURVE (1,1)  *  AH3D((57.296*BUFrER(JI),369.0) 

IF  (CURVED, l)  . GT •  180.9)  CURVE(I,1)  -  CURVED, 1)  -  360.0 
250  CONTINUE  • 

IF  (LP)  CALL  PLCUR  V(  NS  *1,Y»  CURVE  ,0.0, 0.0, -*180.0, 180.0. 

♦  NCHAR, TITLE,NXCNAR, XL ABEL, NYCHAR, YLABEL ,NEMP AGE ,NX,NY) 

CALL  FACT0R(FAC3*FACHAIN) 

IF  (PL)  CALL  ZPLOT(NS,l,f , CUR VE , 0. 0 ,0.0,-180.0, 180.0* 

♦  NCHAR*TITLE(3)  ,N < CHAR, <L ABEL .NYCHAR .YLABEL, 10.1* 6.5, 0.0, 10.  1 

♦  0. 0.6.51 
SOTO  20 

SECTION  FOR  1-0  SPECTRUH  PLOT 
330  CONTINUE 


2330 

2331 

2332 

2334 

2335 


340 


345 


350 

360 


370 

380 

390 

400 


READ! 5.1003) 
READ! 5,1004) 
REA0(5»1304) 
RE AD ( 5 , 1000) 
RE AO ( 5  *  1 005 ) 


(TITLED), 1-3, 10) 
NXCHAR , XLA8EL 
NYCHAR, YLABEL 
NOU 

.  NS  ID 

NS1D  -  HINDI  NS 10,10) 

RE AD (5, 10 05)  ( N01D ( I ) , I  - 1 , NS1D, l ) 
NRIT? (6,2330) 

: ORHAT ( 1 2 H  P.OT  TYPE  4) 
4RITE(S,2331)  (TITLE!  I ),  1-3,10,1) 

: ORMAT! 5  N  TITLE, /,3A10) 
rfRlTE(6,2332)  X  LAB  E  L 
: ORMAT ( 1 3H  X  AXIS  .ABEL, ft 6A10) 
NRITE (6,2334)  YLABEL 
: ORMAT ( l 3H  IYAXIS  w ABEL , V , 6A10 ) 
RRITE (6, 2335)  NS  ID, ( N010 ( I ) , I -1 ,  NS1 
=ORMAT(29H  NUMBER  3F  ST A TI DNS: , I  3 , t 
IOFSET-iL 

IF  (JSREC)  GOTO  340 

CALL  REAOJS(LUN( 1 )  , S 1 9  »  .NF  »NGR  I  D) 
JSREC  -  .TRUE. 

00  350  I »1, NS  10,1 
L-N01XI  ) 

DO  350  J-l.NF,! 

IF(NOU.EO.i)  GOTO  345 
CURVE! J, I )-SlD(L, J) 

GOTO  350 
CONTINUE 

CURVE! J,I )-SlO(L,J)/BFPH 
CONTINUE 
CONTI NUE 

IF(NOU.EO.l)  GOTO  380 
)0  370  I-l,NF,i 
TAR(I)-FREOd) 

CONTI NUE 
SOTO  409 
CONTINUE 
90  390  I  - 1, NF  ,  1 

TAR (I )-FREO( I )♦ JSTAR/S/100 
CONTINUE 
CONTINUE 


D,  1) 

, 1 3HSTA  T I  ON  LIST*, /, (I6.3X) 


1 
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I F  ( LP ) C  A_L  PLCURVt  NF  ,  NS  1 )  ,  TAR  ,  C  UR  VE  ,  0 . 0  ,  <t .  0 , 0 . 0 ,1.  5  , 

♦  NCHAR, TITLE, NXCNAR,XLABEL, NYC  HA R, YL ABEL , NE HP  AGE ,NX , NY) 

:all  factors aca^facmain) 

IF  (Pl) CA.L  Z?LOT(N=,NSID,TAR,CURVE,0.0,4.0*0.0,1.5» 

♦  NCHAR, T I TL£(3),NXCHAR,X_ABEL*NYCHAR,YLABE.» 

♦  8«5,{>.0,D»!)»8*0,3.0»6.0) 

SOTO  20 

C 

430  CONTINUE 

CALL  FACT0R(FAC5*FACMAIN) 

CALL  GRPr!NGRlD,LUN(2) ,N3,NF,FRE0,  LP  ♦  PL  *  CU  R  VE  ,  NEWP  AGE  ,  NX,  NY* 

♦  NCHAR, TI  T;-E»NXCHAR,XLABEL»NYCHAR»YLA8EL) 

SO  TO  20 

530  CONTINUE 

CALL  FACrORt'ACMAIN*FAC£>) 

SREC-. FALSE.  „  , 

CALL  S23PLTI NGRID, -UNI2) ,NO,NF,FREa,LP»PL,  NENP AGE* NX, NY* NCHAR* 

♦  TITLE»NXCHAR»  XLASE  L  *NY  CHAR»YLA8EL»  CURVE*  SUFFER) 

SO  TO  20 

C  _E  A  VE  R03M  FOR  OTHER  PLOTS. 

630  CONTINUE 

CALL  FACTOR! F AC5*F 4CHAIN) 

SREC-. FALSE.  „ 

CALL  SI  3 LT( NGR ID ,L JN I  2 ) , ND »NF , FRE Q , LP ,PL ,NE HP  AG E *NX ,NY,NCHAR * 

♦  TITLE, NXCH AR,NYCHAR,TAR ♦ CURVE, BUFFER) 

SOTO  20 

END 
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S  UBR3UT I  >1 E  PKFREUI -REa,SLD,NS,NF,FM,NOSTA> 

C  THIS  5J3R3JTINE  CALCJ.ATES  THE  PEAK  FREQUENCY  WHICH  IS  RETURNED  IN  F 
C 

C  FREQ  -  ARRAY  OF  FREQUENCIES 
C  SID  -  1-0  SPECTRUM  VA.UES 
C  NS  -  NUMBER  Ur  STATIONS 
C  NF  -  NUMBER  OF  FREQUENCIES 
C 

C  I  -  STATION  COUNTER 
C  J  -  FREQUENCY  INDEX 

C  SM  -  HOLDS  N  AX  FREQUENCY  DURING  SEARCH  ROUTINE 
C  JH  -  INDEX  DF  PEAK  FREQUENCY 
C  J1  -  JN  -  1 
C  J2  -  JH 
C  J3  -  JM  ♦  1 
C  XI  -  FIRST  "REOJENCY 
C  Y1  -  FIRST  SPECTRAL  VALUE 
C  X2  -  SECOND  FREQUENCY 
C  Y2  -  SECOND  SPECTRAL  VALUE 
C  X3  -  THIRD  FREQJENCY 
C  Y3  -  THIRD  SPECTRAL  VALUE 

C  XNJ1  -  NUMERATOR  OF  FREQUENCY  APPROXIMATION 
C  0EN3H  -  DENOMINATOR  QF  FREQJENCY  APPROXIMATION 
C 

INTEGER  NS,  NF,  I,  J,  JM,  Jl»  J2,  J3 
INTEGER  NOSTA(NS) 

REAL  FREQ (NS) ,$101500,20) , FMINF ) . S M ,X1, X2 , X3 » Y1,Y2,Y3 
REAL  XNJN,  DENOM 

C  00  EVERYTHING  FOR  EACH  STATION 
DO  40  K-ltHSfl 
I9* NOSTACK ) 

C  BEGIN  SEARCH  FOR  DISCRETE  PEAK 
C  DO  PRELIMINARIES 

SM  -  S ID ( 1 , 1 ) 

JM  -  1 

C  START  ACT  JA  _  SEAPCH 

DO  LD  J-2,  NF,  L 

IF  (SM  .GE.  S 1D( I >  J ) )  GO  TO  10 
C  KEE*  NEW  1A< 

SM  -  S ID( I , J) 

JM  -  J 

10  CONTINJE 

C  SEE  IF  CURVE  FITTING  CAN  BE  DONE 

IF  ((JM  *  ME  *  1)  .AND,  (JM  ,.NE,  NF))  GO  TO  20 
C  SINCE  PEAK  IS  AT  END,  CURVE  FITTING  CAN  NOT  BE  DONE 
FN(I>  -  FREQ(JM) 

CD  TO  40 

C  PRE’ARE  TO  DO  CJRVE  FITTING  BY  SOLVING  PEAK  AS  MAXIMUM  VALUF  OF  QUA! 
C  THAT  PASSES  THROUGH  THE  3  POINTS  AROUND  THE  DISCRETE  PEAK 
20  Jl-JH-l 
J2-JM 
J3*  JM*l 
Kl-FREQC Jl) 

Yl-SiDII , Jl) 

<2=FREQ( J2) 

Y2 *S ID ( I  ,J2) 

<3*FREQ( J3) 

Y3*S1D( I » J  3 ) 

C  CALCULATE  DENDMINATOR  OF  PEAK  FREQUENCY 

DEN0M-2MX2*Y3-X3*  Y2+X3*  Y 1 -X 1* Y 3 ♦ XI  * Y2-X2* Yl ) 

C  APPROXIMATI DN  CAN  NOT  BE  DONE  IF  DENDMINATOR  IS  ZERO 
IF  (DEMON  ,NE.  0)  GOTO  35 
F M ( I )  -  FREQ(JM) 

GO  TD  40 

C  C ALC JL ATE  NJNERATOR  AND  PEAK  FREQUENCY 
3  0  <NUM*‘-(fZ*X3<‘X3  — Y3  *X 2*X2 ♦ f 3* XI *X i-Yl *X34X3 *Y 1  * X2 *X2  ~Y24Xl«Xl) 

=  M(  I  ) -KNJMYDENOM 
40  CONTINJE 
RETURN 
END 
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SUBROUTINE  GRPTINGRID,LUN,ND»NF»FREQ»LP»PL»E»NE  HP  AGE  , NX ,NY« 
♦  NCHAR  ,Tl  T_£, NXCHAR, XLABEL.NYCHAR  ,YLABEL) 


GRAPH 

POINT. 

RIGHT  DATA  RECORD 


THIS  ROUTINE  READS  THE  HISTORY  TAPE  AMD  PRODUCES  A 
OF  THE  1-3  SPECTRUM  A T  SELECTED  TIMES  AT  ONE  GRID 
IT  CALLS: 

FN3IDREC  -  POSITIONS  FILE  WINTER  AT  BEGINNING  OF 
RS>LIT  -  UNPACKS  A  REAL  VA_UE  FROM  A  WORD 
IS’LIT  -  UNPACKS  AN  INTEGER  VALUE  FROM  A  WOR3 
PL  C  UR  V  -  ROUTINE  TO  00  LINE  PRINTER  PLOTS 
ZP.OT  -  ZETA  P  „0T  ROUTINE 

PARAMETERS 

NGRIO  -  TOTAL  NUMBER  OF  GRI 3  POINTS 

LUN  -  LOGICAL  UNIT  NUMBER 

ND  -  NUMBER  OF  DIRECTIONS 

NF  -  NUMBER  OF  FREQUENCIES 

FRED  -  ARRAY  OF  FREQUENCIES 

LP  -  FLAG  FOR  LINE  PRINTER  PLOTS 

PL  -  FLAG  FOR  PLOTTER  PLOTS 

NCHAR  -  LENGTH  OF  TITLE 

TIT.E  -  TITLE  OF  GRAPH 

NX  -  WIOTH  OF  PRINTER  PLOT 

NXCMAR  -  LENGTH  OF  X-AXIS  LABEL 

XLA3EL  -  X A < I S  LABEL 

NYCMAR  -  HEIGHT  OF  LINE  PRINTER  PLOT 

YLA3EL  -  ACTUAL  ARRAY  CONTAINING  Y-AXIS  LABEL 

VARIABLES: 

NSTEP  -  NJ.M3ER  OF  TIME  STEPS 
ITI1E  -  ARRAY  OF  SELECTED  TIMES 
I  NS R DPT  GRID  POINT  TO  BE  PLOTTED 
BUF  -  INPUT  BUFFER 

EOB  -  END  OF  BUFFER  I.ENGTH  OF  INPUT  RECORD) 

TIMCTR  -  TIME  INDEX 
J  -  FREQUENCY  INDEX 
K  -  DIRECTION  INDEX 
FACTOR  -  2*>I*DISTANCE 

INO  -  TELlS  WHICH  HALF  of  WORD  GRID  POINT  VALUE  IS  PACKED  IN 
IPTR  -  INOE  <  OF  BUF  FOR  GRIO  POINT  VALUE 
E  -  ARRAY  D:  INOEPENDENT  VARIABLE  VALUES 


INTEGER 

NCR  I 0 ,LUN, 

NO, 

NF, NSTEP, 

I  T I 

ME 

(10)  , 

INGROPT, NCHAR 

INTEGER 

NXCHAR, NYC 

MAR 

,E33,TIMC 

TR, 

J  , 

K ,  I ND 

♦  IPTR, NX, NY 

REAi. 

FAC 

T  OR, E (100, 

10) 

»  F  R  E  Q  (  NF  ) 

,  T I 

T_ 

E  ( 10  ) 

♦  X_  A8  EL (6) , YLABEL (6) 

REAL 

BU  = 

(254) 

REAL 

BFP 

M , US  T  AR  ,  G 

.OGICAL 

-P,P- 

OATA 

BFP 

M/1361000. 

0/, 

USTAR/85. 

5/, 

G/ 

980.6/ 

REAO  .  •  USER  SUPPLIED  INFORMATION 


RE  AO  15,1003)  I T  IT lE (  I  )  , I ■ 3 . 10 ) 

1003  =ORMAT( 3  AID) 

RE  AO (5*1004)  NXCHAR .XLA3EL 

1004  -ORNAT(IlO«10XbAlQ) 

REAO  (5*1004)  NYCHAR* YLA3EL 
RE  AO (5*1004)  NDU 

READ  (5,1005)  NSTE P , ( I T I  ME ( I ) *  I -1 , NSTEP , 1) 

1005  =  ORM  AT (3(10) 

READ  (5,1005)  INGROPT 
MR  I T  E ( 6*  ZCOO ) 

2000  : ORM AT ( 17H  GRPT-PLOT  TYPE  5) 

HRITE(6,Z00i)  (TITLE (I), I>3«10,1) 

2001  :0RMAT(7H  TirLE:8AlO) 

NR  I  T  E  (  b  ,  2002  )  NXCHAR ,XLA3EL 

2002  : ORMAT ( 5 H  NXCHAR- , I  3 , / , 7 HXL ABEL- , 6 A 10 ) 

NRITEIb, 20031  NYCH  AR  ,  YL  A  3  E  L 

2003  : ORHATI 8  H  NY CHA R I  3 , / , 7 H YL ABEL - , b A 10 ) 
rfRlTE(S»?034)  NSTEP, (ITIME(I),I-1, NSTEP, 1) 

2004  - ORMAT( 22  H  NUMBER  OF  TIME  S TEPS : , I  2 »/ , 16H, SEL EC T ED 
MRlTE(b»20D5)  INGROPT 

2005  : ORMAT ( 1 2  H  GRID  POINT:, 14) 

:  REAO  DATA  AND  DO  SUMAIION 

EOB  -  4  ♦  I  l*NSRI0)/2 


TIMES:, (14,3X1 


AT  7 


SUBROUTINE  GRP  f 


REMIND  _JS 

30  240  TIMCTR  -  l,N5TEP*l 
00  203  J-l,NF,l 

ECJ»TlnCTR)  -  0.0 
200  CONTINUE 

REHINO  LU,N 

CA.L  F  NOR  F CC  I  T I  Mt  C  TIlCTR)  »LUN»ND,NF) 

DO  230  J»1,NF,1 

03  220  K*1,N3»1 

BUFFER  IN  CLUN.l)  (BUF  (1) ,  BUF  <  EOBI  ) 

IF  (UNIT(.UNJ)  210. 996,998 
210  FACTOR  -  RSPLITC1,BUFC4>> 

HD  •  NODC INCRDPT*L,2)  ♦  l 
1PTR  -  C I NGRDP  T  *■  1 )  /  2  ♦  4 
2-RSPL I T( IND,BJ=( IPTR I ) 

E( J.TINCTR )-0( J.TIMCTRJ ♦FACTOR *2 
220  CONTINUE 

230  CD  NTIN JE 

240  CONTI NUE 

IFINOU.E  0.U3OTO263 
30  250  J-l.NF.l 
BUFC JI-FREQC J) 

250  CONTINUE 

GOTO  293 
260  CONTINUE 

30  280  I-l.NF.l 

BUFC I ) **F  R  E  Q  C I )* US  TAR/S 
DO  273  J-l,NSTEP,l 
EC  1,J)-E(  I  ,J  )  /BFPrl 
270  C3NTINJE 

280  CONTINUE 
290  CONTINUE 

IF  CLP)  CALL  P LCUR VC  NF.NST EP .BuF.E, 0.0,0. 02, 0.0, 1.5* 

♦  NCHAR,TIT«.E,NXCiAR,XLABcL»NYCMAR,YLABEL»  NE  HP AGE , NX, N Y ) 
NF -NF-1 

IFCPLICA.L  2  PLOT  CNF ,NSTE » , BUF , E , 0. 0 , 0.0 2 ,0. 0, 1. 5  * 

♦  0.25, 0.0025, 

♦  NCHAR.TI TLE (3) ,NXCHAR, <LABEL»NYCHAR,YLABEL» 

♦  8.0, b. 0,0.0, 8. 0,0.0, 5,0) 

NF-NF+1 

RETURN 

998  TRITEC6, 999 )  LUN 

999  : ORHAT  C  32H3*  ♦  *  ERROR  OR  EOF  READING  UNIT, 13, 6H  ♦  ♦ 

STOP 

END 
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^ROUTINE  S20P.r 


SUBROUT l NE  S2DPLT(NGRID,.UN»ND,NF,FREQ»LP»PL»NEHPAGE»NX»NY» 

♦  NCHAR,  T  I  TLE  ,NXCHAR,  XL A  BEL, S YCHAR , YL ABE L , S 20 , BUF > 

C  THIS  ROUT  I N  E  READS  THE  HISTORY  TAPE  ASD  PRODUCES  A  GRAPH 
C  OF  THE  2-D  SPECTkUN  AT  SELECTED  DIRECTIONS,. 

C  IT  CALLS: 

C  FNOIDREC  -  POSITIONS  FILE  “OINTER  AT  BEGINNING  OF  RIGHT  DATA  RECORD 
C  RS’LIT  -  UNPACKS  A  REAL  VA.UE  FROM  A  WORD 

C  PLCURV  -  ROUTINE  TO  00  LINE  PRINTER  PLOTS 

C  2P.0T  -  ZETA  P  _  OT  ROUTINE 
C 

C  PARA  IE  TE  RS 

C  NGRID  -  TOTAL  NUMBER  OF  GRIO  POINTS 
C  LUN  -  LOGICAL  UNIT  NUMBER 
C  NO  -  NUMBER  OF  DIRECTIONS 
C  NF  -  NUMBER  OF  FREQUENCIES 
C  FRE 3  -  ARRAY  OF  FREQUENCIES 
C  LP  -  FLAG  FOR  LINE  PRINTER  PLOTS 
C  PL  -  FLAG  FOR  P_OT TER  PLOTS 
C  NCHAR  -  LENGTH  OF  TITLE 
C  TIT.E  -  TIT.E  OF  GRAPH 
C  NX  -  HIDTH  OF  PRINTER  PLOT 
C  NXCHAR  -  LENGTH  OF  X-AXIS  LABEL 
C  XLA3EL  -  X A <  I S  LABEL 
C  NYCHAR  -  Y-AXIS  LABEL  LENGTH 

C  YLA3EL  -  ACTUAL  ARRAY  CONTAINING  Y-AXIS  LABEL 
C 

C  VARIABLES: 

C  INGROPT  GRIO  POINT  TO  BE  PLOTTED 
C  BUF  -  INPUT  BUFFER 

C  EOS  -  END  0=  BUFFER  I.ENGTH  OF  INPUT  RECORD! 

C  J  -  FREQUENCY  INDEX 
C  K  -  DIRECTION  INDEX 

C  INO  -  TELLS  WHICH  HALF  OF  WORD  GRID  POINT  VALUE  IS  PACKED 
C  IPTR  -  INDEX  OF  BUF  FOR  GRIO  POINT  YALUE 
C 

INTEGER  TITLE (101 ,<LABEL(b) ,YLABEL(6> 

INTEGER  I  DIR ( 40  ) 

REAL  FRE  3 ( 20  ) ,S2D( 100,10) 

REAL  3  U- I  600 ) 

.OGICAL  _P,P_ 

C  READ  IN  USER  SUPPLIED  INFORMATION 
READ  (5,10031  ( T I T „E ( 1 1  * l *3 *10) 

1003  =ORMAT(3A10) 

R  E  AD( 5  » 1)04)  NXCHAR ,XLABEL 

1004  -ORMATI l LO,1DX6A10 ) 

READ  (5,1004)  NYCHAR, YLA3EL 

1005  F ORM AT (9110) 

READ  (5,1005)  INGROPT 
READ(5,LD05I  1TSTEP 

R  E  AD( 5 , 1 005  )  NSD.(IDIR(I),I-l,NSO,l> 

)0  20  1*1, NS 0,1 
DO  10  J “1 , NF  » 1 
S  2  0 ( J , I )-0.0 
10  CONTINUE 

20  CONTINUE 

EOB  -  4*  ( 1 ♦NCR  I D )/ 2 
REWIND  LJN 

IN)  -  NOO(INGROPT*l»2)  ♦  1 
IPTR  -  (INGROPT  ♦  11/2  *•  4 
CALL  F.NORECf  I  TSTEP  ,  LUN,  N  0  ,  .NF  ) 

30  50  J ■ l *  NF  ,  1 
1-1 

<-l 

30  CONTINUE 

BUFFER  IN  (LUN  ,  L  )  (  BUF  (  1 )  ,  BUF  (  E  £)B  )  ) 

IF  (UNIT(LUN) )  31,998,993 

31  CONTINUE 

I F  (  K , NE ,  l  3 1 R ( I  ))  GOTO  33 

r  S2)( J, I ) «RSP_IT( INO, BUF  (  IPTR) > 

I  I  - 1  ♦  I 

33  CONTINUE 

IF(N0.E3, K )  GOTO  5) 

T-  <  ■  1  ♦  K 

j  IF(I*LE.NSD)  GOTO  30 

AID 


SU3R0UTISE  S20PLT 


39  CONTINUE 

3UFFER  IS  f  L  JN , 1 )  (BJF(l) .3UFJ1)) 

I  F ( UNI T ( _UN )  )  40,998,99(3 

40  ; OMT I M JE 
<  - 1  ♦  < 

l F ( K. LT . NO ) GOTO  39 
50  CONTI  SUE 

I F I L  P I  CALL  PLCURVI NF ,NSD,FREQ» S2D, 0.0, 0.0,0. 0,0,0, 

♦  NCH4R, TI  TIE , NXC iAR, XL  ABEL, NTCHAR , YL ABEL ♦ NE W P AGE ,NX, N Y ) 
IF(PL)C4.L  ZPLOTCN-,NSD,FREO,S20,0»0,0*0,0»0,0*0, 

♦  NCHAR,  TITLE (3 ) ,NXCHAR, < LABEL, NYCHAR,YLABEL, 

♦  ii. 1,7. 1,0. 0,11. I, 0.0, 7. I) 

IE  TURN 

998  <fRlTE(6»9  99>  LUN 

999  =ORHAT(32HD*  <■  *  ERROR  OR  EOF  READING  UNIT, 13, 6H  *  *  *J 
5  T  DP 

END 
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J.JROUTINE  S  10  IT 


SUBROUTl NE  SID  IT  INGRID,.  JN , ND,  NF , F RE 0,L P ,P L , NE WPAGE, NX ,NY , NCHAR, 

♦  TITLE*  NXCrtAR»hYCHAK»TAR,E) 

C 

1  NTFGER  NSTEP,NGRD?TS,GRDPTS(10>  , NX  CHAR , XL  ABEL  I  7 > , NYCHAR , YLABEL I  7 

INTEGER  NDJ,LUN,E33,NGRI D, NF,ND 

INTEGER  l NDEK(1G,2> ,11 

-OGICA:.  PL,LP 

REAL  TIT.EI1D) 

RE  AL  FRE  31  NF)  ,TAR(  100)  , G , J ST AR , B UF I  254 ) 

REAL  EIDO,  21  ,VAR1100)»T,  FACTOR 
REAL  BF>N 

DATA  BFPN/1351G0D. )/ 

DATA  USTAR/85.5/,G/980.5/ 

C  NSTE  *  -  SELECTEO  TIME  STEP 
C  NGRDPTS  -  NJ1B6R  OF  GRID  POINTS  SELECTED 
C  GRPTS  -  ARRAY  OF  SELECTED  GRID  POINTS 

C  NXCHAR  -  NUM3ER  3F  CHARACTERS  IN  X-AXIS  LABEL  j 

C  TITLE  -  TI T_  E  OF  GRAPH 
C  XLABEL  -  X  AXIS  LABEL 

C  NYCHAR  -  NU13ER  DF  CHARACTERS  IN  Y-AXIS  LABEL 
C  YLABEL  -  Y-AXIS  L  ABEL 
C  NOU  -  FLAG  FDR  NON-DIMENSIONAL  UNITS 
C  LUN  -  LOG  I C  A  _  JN I T  NUMBER 
C  EOB  END  OF  3JFFER 

C  NGRID  -  NUMBER  OF  GRID  POINTS  ON  TAPE 
C  NF  -  NUMBER  DF  FREQUENCIES 
C  FREQ  -  ARRAY  OF  FREQUENCIES 

C  TAR  -  TEMP  ARRAY,  USED  TO  ST3RE  INDEPEBOENT  VARIABLE  VALUES  ! 

C  G  -  GRAVITY  CONSTANT 
C  USTAR  -  J*  C 3 NS T ANT 
C  NO  -  NUMBER  DF  01  RECTI  DNS 

C  BUF  -  ARRAY  JSED  AS  IH»UT  BUFFER  ! 

READ(5,iD00)  NSTEP 

1000  FORMAT ( SI  10) 

RE  ADIS, 1000)  NGRDPTS  ! 

NGRDPTS-MINDI NGRDPTS, 10) 

RE  AD (5*1000)  IGRDPrSII ) , I -1 ,NGROP TS , 1 ) 

READ(5,1002)  NCHAft, (TITLEI I), 1-3, 9,1)  j 

1001  -ORMATI  8AI.0) 

REA0I5,1D02)  NX CHA R , XL AB E L  \ 

1002  :  ORMAT ( I  10, I 7A10) )  j 

READ  (5,1CD2)  NYCHAR,  YLA3EL  ! 


READI5,1000)  NDU 
RRITE(5,20D0)  NSTEP 

2000  : ORMAT I  2  DH  SELECTED  TIME  STEP:, 14) 

MRI TE ( 5, 2C01 )  NGRDPTS, I GRDPT SI  I ) , I -1 , NGROP T S , 1 ) 

2001  -0RMATI32N  NUMBER  DF  SELECTED  GRID  P 01  NT S: , I  4  * / , 

♦  21H  ulST  DF  GRID  P 01 N T S : ♦ /, 2X , 1 0 1  8 ) 

rfRITEIb, 2002)  I T I T lE 1 1 ) , I  -  3 , 10 ) 

2002  -0RMATI7H  T I TLE :  ,/ , 2X , 8A 1 0 ) 

RRITE(6,20D3>  NXCH AR  ,  XL  A  3 E L 

2003  : ORMATI 24H  LENGTH  DF  X-AXIS  LABEL :, 14,/ ,14H  X-AXIS  LABEL*  ,7A10) 
RRITEI  6,2004)  N YCH AR , YL A  3 E L 

2004  - ORMAT I 24H  LENGTH  DF  Y-AXIS  LABELS , 14*/ , 141  Y-AXIS  LABEL*  »7A10) 
MRITEI 5,2005)  NDU 

2005  -0RMATI5H  NOU-,12) 

REWIND  LJN 
E0B>4*(  H-NGRI D) /2 
DO  5  I-l, NGRDPTS, l 

INDEX!  1,1) -<GRD»TS!I  )  H)/2  *4 
INDEX! I, 2) -MODI GRDPTS (I) ♦!, 2 ) *1 
5  C3NTINUE 

IFINDU  .EQ.  1)  GOT  3  20 
DO  ID  I " 1 , NF  *  1 
T AR ( I ) -FREQ! I ) 

10  CONTINUE 

GOTO  40 

20  CONTINUE 

DD  3  0  I  - 1 , NF  ,  1 

TAR  I  I ) -FREUI I )*USTAR/G 
DO  CONTINUE 

40  CONTINUE 

DO  6D  I  - L , NF  ,  1 

DD  50  J  *  1 »  NGRDP I S , 1 
E I  I , J) =0.0 


>U 3 ROUTINE  SlOir 


50  CO'tTINJE 

60  CONTI N  U  E 
Z  -0.0 

REWIND  .UN 

call  FN3REC! NSTEP,_UN,NU,NF ) 

OO  100  J-l.NF.l 
00  VO  K«1,ND,1 

3  J  -  F  E  R  IN  (LJN,1)  CBUF(1),BUF!E08> ) 

I=( UNI T (LUN) )  70,9)9,999 
70  C3NTINJE 

FACTOR-RSPLlT (  1  »  B  J  - (5)) 

30  BO  I =*1»N3RQPTS,  l 
11- INDEX (1,1) 

T-RSPLI  TC  INDEX!  I  ,  2)  ,BUF(  I1D 
E(  J,  1 )  -EC  J,I  )*FACTOP>T 
Z-ANAXU  Z  ,E(  J,  I  )  ) 

80  CONTINUE 

90  CONTINUE 

100  CONTINUE 

I F (NDU  ► NE .  1)  GOT  D  130 
00  123  I -L ,NGRO?TS ,1 
03  110  J-1,NF,1 

El J.I)-EC J,I »/3=PH 
110  CONTINUE 

120  C3NTINJE 

130  CONTINUE 

30  131  I « 1, N  S  RDP  TS  »  1 
DO  131  J-i  ,NF  ,1 

E(J,I)-E(J,I)/Z 

131  C3NTINJE 
NF-13 

IFILPJCAlL  PLCURVt  NF  ,  NGR  3P  T S  ,  T AR  , E  ,  0.0,  0.2 , 0. 0,  1 .0  , 

♦  NCHAR,riTLt»NXCHAR»XLAJEw»NYCHAR,YLABEL»NEWPAGE»NX»NY) 
IFCPLJCA.L  ZPLOTCN-.NGROPTS, TAR, E, 0.0,0. 2,3.0, 1.0, 

♦  0.16557,0.025, 

♦  NCHAR, TITLE  ! 3 ) ,NX CHAR , XL  A BEL » N Y C H AR , Y L AB E L ♦ 

♦  8. 0,5. 0,0. 0,8. 0.0. 0,5.0) 

NF-2G 

RETURN 

999  CONTINUE 

4RITE(b,llll)  LUN 

1111  =0RMAT(Z5H  ERROR  W  NE  N  READING  UNIT  ,12) 

RETURN 

END 
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FUNCTION  RSPLIT 


:UNCT ION  RSPLIT (1N0,WDRD) 

C 

INTEGER  I  NO 

REAL  WOR5,TENP 

SO  TO  (150,110)  ,  IND 

100  RSPLIT  -  W3R3  .AND,  77777777770DDDD0O0O0B 
RETURN 

110  TEMP  -  ORD  .AND.  00000030007777777777B 
RSPLIT  -  SMI=T(TEHf»,30) 

RETURN 

ENO 


A23 


-JU3R0UTIHE  LIMITS 


C 

C 

c 

c 

c. 

c 

c 

c 

c 

c 

c 


c 


SUBROUTINE  LIMITS(XM1N.XMAX*IRDW»IC0L»NPTS*X) 

THIS  SU3R0JTINE  FINOS  THE  MINIMUM  AND  MAXIMUM  VALUE  OF  A 


XMI  N 
XMA  X 
X  - 
IRON 
ICJ- 
NOT  E 
NPTS 


-  MINI  MUM  RETURNED  HERE 

-  MAXIMUM  RETURNED  HERE 
ARRAY  3r  VA.UES  T3  DE  SEARCHED 

-  NUMBER  OF  ROMS  IN  ARRAY 

-  NUMBER  OF  COLUMNS  IN  ARRAY  TO  3E  SEARCHED 

:  IF  IC3L-1  THEN  A  1-D  ARRAY  CAN  3E  SEARCHED. 
-  NJH3ER  3F  POINTS  IN  ARRAY 


INTEGER  IRON. ICOL.NPTS 
REAL  XMI N. XMAX  ,X( I ROW.IC 3L  I 
INITIALIZE  MINIMUM  AND  MAXIMUM 
<HIN  - 
XMAX  -  X.MIN 
NON  START  SEARCH 
30  ID  I-l,IC3Ltl 
DO  ID  J-l.NPTS.L 

XMIN  -  AMINUXMIN.XC  J.I  I  » 
XMAX  -  AMAXK  XMAX.  <1  J*  I)  ) 
10  CONTINUE 
RETURN 
ENO 


~D  ARRA 
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IDN  ISPLir 


100 


110 


=UNCTI0<  ISPLIT! IN3,JM0R>» 

INTEDEk  IN). IMORD.ITEHf 
SOTO  (IDD*11D)»IKD 


I  TEMP 
! SPLIT 
RETURN 
I  TEMP  « 
ITEMP  « 
ISPLIT 
1ETURN 
END 


1 M3R3  •AND*  777? 7 7 77770 09000000 OB 
SHIFT! ITElP»-35l 

INDIO  .AND.  000090000077777777776 
SHIFT (I  TEH* ,301 
>  SHIFT! 1TEHP, -301 
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1R0UTI  ME  fnore: 


SU8R3UTI NE  F  NDRECI  NSTEP»_U!N»ND»NF) 

C 

C  THIS  SJSRDJTINE  SPACES  TAPE  FORWARD  UNTIL  PROPER  TIHE  STEP  IS  F  DUNI 
INTEGER  I BUF ( 5 ) »NSTEP»LUN,ND*NF»I»J 
C  N  S  T  :  P  -  THE  STEP  WANTED 
C  LUN  -  LOGICAL  UNIT  NUNBF-R 
C  ND  -  NUMBER  OF  DIRECTIONS 
C  NF  -  NUMBER  OF  FREQUENCIES 
C  IOJ=  -  INPUT  BUFFER 
C  I  -  DIRECTION  INDEX 
C  J  -  FREQUENCY  INDEX 
C 

C  READ  IN  ID  RECORD 
C 

SUFFER  IN  (LJN.l)  ( I  BUF  ID  *  I  BUF  C  5 )  ) 

C  MA< E  SURE  N3  READ  ERRORS 

IF  (UiNlTlLJN))  10*  998*999 
C  PUL-  OUT  PRESENT  STEP  NUMBER 
10  IBUFIl)  -ISPLITI2, IBUFIl)) 

C  IS  IT  THE  RIGHT  STEP  NUMBER? 

IF  (IBU-(i)  .EO.  NSTEP)  SO  TO  933 
C  NO.  WELL  SKIP  A_L  THE  DATA  RECORDS  THEN 
20  DO  *3  J-L.NF.l 

DO  30  K-l.ND.l 

BJFFER  IN  (LUN.l)  I  I BUF 1 1 ) , I BUFI 1 ) ) 

C  MAKE  SURE  4  READ  ERROR  010  NOT  OCCUR 
IF  ('JNIT(LUN))  30.998,998 
30  C3NTINJE 

40  CONTINUE 
C  NOW  READ  IN  ID  RECORO 

SUFFER  IN  ILJN.l)  C I BUF I  1 ) , I BUF C S ) ) 

C  CHECK  FDR  READ  ERROR 

IF  (UNIT! LUN I )  50.998.998 
C  PUL.  OUT  CJRRENT  STEP  NUMBER 
50  IBUFIl)  -  ISPLITI2.I BUF ( L ) ) 

C  IS  THIS  RIGHT  STEP? 

IF  (IBUFIl)  .NE.  NSTEP)  SOTO  20 
C  MUST  BE  RIGHT  PLACE 
900  RETURN 

998  NRITEI6. 999)  LUN 

999  -ORMATI32H3*  *  *  ERROR  OR  EOF  READING  UNIT, 13. 6H  *  *  ♦) 

STOP 
END 
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JDRDUTlNE  GRIOV 


[ 

I 

I 

I 

I 


SU3R3UTME  G 1 1  D  V 1  XMX  ,  XMN  ,  YMX  ,  YMN  ,  DOX ,DDY  ,NX  *  N Y ,  IER) 

C  ROJriNF  TO  3  L  A  N  <  OUT  ?LOT  MAGE*  THEN  PUT  IN  AXES 
C  XHX,XMN-  1  AX  AND  Ml N  X  AXIS  VALUES 

C  YMX, YMX-  1 AX  AND  HI N  Y  AXIS  VALUES 

C  D  0 X  » DDY -  X  DISTANCE  OR  Y  DISTANCE  BETWEEN  PRINTED  AXIS  VALUES 
C  NX, NY-  NO.  PRINTER  SPACES  FOR  X  AND  Y  AXIS 

C  IER-  ERROR  RETURN  CODE  ID  INDICATES  OK) 

C 

INTEGER  3  L  AN  <  »  PLUS 
0  OH  NON  ZZZZZZIHAG(121»61)  , 

♦  XMAX, XMIN, YMAX, YHIN, 

♦  OX  »  0  Y  »  NN  X  »NN Y , 

♦  XSCALE  ,  Y  SC  A  _  E , 

♦  MX  ,HY,IG,IV 

DATA  BLANK, MINUS, P-US,ICNAR/10H  , 1 M~» 1 H« , 1H I / 

IYFIYY)-MY-INT(YSCALE*(YY-YMIN)*.5) 

IXFIXX) «t.S*XSCALE*lXX-X1lN) 

c 

IER-D 
I  G  -  0 
I  V-0 


C  DO  SOME  ERROR  CHECKING 

IF  IXMX.LE.XNN)  GO  TO  900 
XMAX-XrtX 
XMIN-XMN 
DELX-XMAX-XMIN 
IF  I  YMX.LE.YMN)  GO  TO  901 
t MAX-YNX 
f MIN-YMN 
OELY-YHAX-YMIN 
0  X=*DDX 
OY  »D0 Y 
C 

IF  (NX._T .5.DR.NX.GT.12D)  GO  TO  902 
1X-NX+L 

IF  C NY,. T. 5. OR. NY. GT.60)  CD  TO  9D3 
NY-NY+1 

C  CLEAR  PRINT  IMAGE 
00  200  J-l.MY 
DO  2  0  0  I ■ 1 , M X 
200  I NAGI I , J) -BLANK 
C 

C  DETERMINE  SCALE  FACTORS 
XSCALE-NX/DELX 
YSCALE-NY/OE.Y 
C 

C  CREATE  HORIZONTAL  AND  VERTICAL  BORDERS 
DO  210  I ■ 2 , MX 
I  MAGI  I , 1 ) -HI NU5 

210  I  MAGI  I  , MY) -MINUS 
IX-IXFIX1IN) 

IMAGt IX, L )-PLUS 

I  MAGI  IX, MY ) -PLUS 
NNXMDELX/OXfr.OOl) 

DO  211  I  *  1 , NN X 
<  VAL-XMI  N*l  *)X 
I X-IXF(XYAL) 

IMAGt IX, l)-P_US 

211  IMAG(IX,MY)-PLUS 
C 

00  212  J  *  2  , N Y 
l MAG  1 1 , J ) -ICHAR 

212  IMAG(MX,J)-ICHAR 
NNY- I OE . Y/OY ♦.001) 

DO  213  J-l,NNY 
IY-I YF(YHIM»J*DY) 

I M  A  G ( 1,1 Y )-PLUS 

213  I  MAG (MX, I Y )-PLUS 
C 

C  IF  X  *■  0  WITHIN  GRID  RANGE,  DRAW  X  AXIS 

IF  IIx!?e!i  .OR.  IX.GT.NO  GO  TO  220 
DO  221  J»2, NY 
221  1  MAGI  I  X, J  ) -I  CHAR 
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U3R0UTINE  CRIOV 


C  IF  f-0  WITHIN  GRID  RANGE,  DRAW  Y  AXIS 
220  30NTINJE 

IY-IYFO.  ) 

IFIIY.LE.1  .OR.  IY.GT.NY)  GO  TO  222 
30  223  1-2, NX 
223  I  MAG ( I , I i )» MINUS 
C 

222  I G - 1 

RETURN 

C 

900  WRITE  (6, ADO) 

600  7  0  R  in  A  T  (<»5H  **  **  XMAX<-XMIN.  ERROR  RETURN  FROM  GRID.) 

1 1  R  *  l 

RE  TURN 

901  WRITE  16,601) 

601  jORMAT  <<,5H  **  **  **  YMAX<-YMIN.  ERROR  RETURN  FROM  GRID.) 

1  t  K  *  L 

RETURN 

902  WRITE  (6,602) 

602  “tent  of  “ai>h  100  5nALL  08  T0° LA,,CE 

IER-3 

RETURN 

903  WRITE  (6,603) 

603  ♦ir^i^F^Rts.r  e<tent  of  g*aph  To°  small  or  to°  large 

IER-4 

RETURN 

END 


1 

U3P.0UTINE  PLOTV 


5  UBR  3U  F I  ME  P _OT V ( X ,Y , NP T 5 , I SYM, N) UT, I E R ) 
C  ROUTINE  TO  PLOT  VECTOR  Y  AGAINST  VECTOR  X 
31  HE  MSI  OS  X(1),Y(1) 

INTEGER  3  LANK  » X  CHA  R 
COMMON  (  1 1  iZ  /  ItiAdl  121,61)  » 

♦  XMAX,XnlN,YSAX,YhIN, 

♦  3X,Df,NNX»NNY» 

♦  XSCALE , YSCA.E, 

♦  MX ,HY, IG»1 V 

3  AT  A  blank»xchar/h  ,1HXY 
3  A  T  A  MINUS, PLUS,  ICNAR/H- ,  1H*,  1 H I  / 

I XF I  XX) * l  •  5  +  XSCALE  > ( XX-X  N I N ) 
l  YF(  YY)»NY-I  NT(  YSCALE*(  YY-VMINn.S) 

r 

IF  IIG.E3.0)  GO  TO  900 
IF  INPTS.LT.L)  GO  TO  901 
NOUT-O 

C  PLOT  NP TS  OF  DATA  PROS  X  AS)  Y  ARRAYS 
)0  100  I ■ 1»NPTS 
C  FIN)  X  POSITION 
IX-IXFIX(I)) 


IF  (IX..T.1  .OR. 

I X.GT.MX) 

GO 

TO 

no 

FIN)  Y  POSITION 

I Y-IYF(Y( I)) 

IF  (IY.LT.l  .OR. 
_0C-IHAG( IX, I Y) 

I Y.GT.MY) 

GO 

TO 

no 

C  IS  3  R I  NT  POSITION  BLANK  OR  A  -,  ♦  ,  DR  I? 

IF  ILOC.EO.B-ANK)  GO  TO  L1L 
IF  (LOC.EO.  MINUS 
♦. OR. LOC.EO. P_US 
♦  •  OR.LOC. EQ. 1CHAR)  GO  TO  111 

C  IF  SOMETHING  ELSE  IN  THE  PRINT  POSITION,  REPLACE  WITH  X 
IMAGIIX, I Y)»XCHAR 
GO  TO  IDO 

C  PUT  PLOTTING  SYMBOL  IN  THIS  PRINT  POSITION 
111  I  H A G ( IX, IY)*I5YM 
GO  TO  100 

C  CONE  HERE  1=  POINT  OUTSIDE  GRID 
110  NOUT-NOJW 
100  CONTINUE 
C 

I  V-l 
RETURN 
C 

900  RRITE  (6,500) 

500  -ORMAT  (AiH  *  *  **  **  ERROR  IN  GRIDV.  NO  P-OT  DRAWN. ) 
IER-1 
RETURN 

901  NRITE  (5,601) 

601  =DRNAT  (33H  **  **  »*  NPTS<1.  NO  P_OT  DRAWN.) 

I  ER“2 

RETURN 

END 


i: 


1 
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no 


j.ikuuthe  lablv 


c 


c 


SUBROUTINE  LABL V(NXCHAR, <LABEL,NYCHAR,YLABEL,NCHAR,TI TLE  »  NE WPAGE 

♦  1  E  R  ) 

RUJflNE  TO  >RlNr  COHP.ETEO  GRAPH  AND  LABELS  AND  TITLE 
INTEGER  B  L  AN  < 

.OGICAl  WLWPAGE 

3 1  HE  MS  nt  XL  ABEL  U)  , YL AB El ( 1 1* T I TLE  ( 1 ) 

3IHENS13W  XV(7>  ,FMT (2  ) 

COMMON  I  till  I  l  M  A  G  (  121*61)  * 

♦  XrtAX,XMlN,Y1AX,YMIN, 

♦  3X , 3 Y , NNX ,NNY, 

♦  XSCALE,YSCA.E* 

♦  MX,HY,IG»IV 

3 AT  A  HAS </303C0030 307 777 300000B/* BLANK/1 H  / 

3  AT  A  -MT/lOH  (16X  ,Oi)Al,  ,6H11A10)/ 

l  XF  (XX)  «l.  5* X SC  ALE*  (  XX-X1IN) 

IYF(YY)«1Y-MT(  YSC  AL  E  *  (  Y  Y  -  Y  M  I N )  ♦  ,  5 ) 

IF  (IG.E3.0)  GO  TO  900 
IF  { I  V. E  3. 3)  GO  T  3  901 


I 

f 

i 

i 

i 


IF  REOUESTE3,  SKIP  TO  A  NEW  PAGE 

IF  (NEHPAGE)  WRITE  (6*633)  i 

680  : ORMAT  ( IH1 I  1 

C  SKI ?  3  LINES  AND  WRITE  PLOT  TITLE  (iOOCHAR'S  PER  LINE*  10  LINES  HAX 
IF  (NCHAR.EO.O)  GO  TO  10  I 

<)CH-(NCHAR«-9> /10 

WRITE  (6,600)  (TIT_E(  I)  ,1 -1,NCM)  I 

600  -ORMAT  (  10l/,6X,l0A10) ) 

C  i 

C  C01>UTE  STARTING  LINE  OF  Y  AXIS  LABEL 
10  CONTINUE 

I  PIMNYCHAR+i  )  /  2 
IPZ-MY/2 

_1-IP2-I>1  | 

IF  (_1._T.1I  Li-1 

.2-li*ny:har  « 

IF  (L2.GT.HY)  L2-HY 

C  PRINT  PLOT  IMAGE,  Y  AXIS  VA.UES*  AND  Y  LABEL  I 

JYI-NNY  { 

YVAL-YHI  'J*JY1’>0Y 

JYV-I Y? ( f VAL )  , 

ISH-0  1 

ICNT-0  j 

I  L  -  l  1 

)U  ICO  IY-i.HY 

C  WRITE  PLOT  IMAGE  LINE  ( 

WRITE  (6,601)  ( I MA  3 ( I  X  ,  I Y) »IX-1»MX)  J 

601  -ORMAT  ( 1  AX  *  1 2 1 A1 )  1 

C  IF  APPROPRIATE,  CALCULATE  A  SO  PRINT  Y  AXIS  VA_UE 

IF  (JYV.CT.IY)  GO  TU  131 
C  PRINT  A  Y  AXIS  VALUE  3N  THIS  LINE 
WRITE  16,632)  Y  VAL 

602  -ORMAT  ( I )(♦, 2X *013 . A ) 

JY1-JY1-L 

YVAL-YHI  W*JYI‘>DY 
JYV-IYFI YVAL) 

C  IF  APPROPRIATE*  WRITE  A  CHARACTER  OF  THE  Y  LABEL 

101  IF  (NYCHAR.E3.0 )  GO  TO  130 

IF  (IY.LT. LI  .OR.  IY.GT._2)  GO  TO  100 
ICNT-ICNT+1 

IF  (ICNT.GT.NYCHAR)  GO  TD  100 
YL-SWIF  n  YLA3EL ( IL) *ISH) 

I SH-ISH*6 

IF  (ISH._E.5ft)  GO  TO  102 
ISH-3 
l L- I L ♦ l 

102  NCN  T-NC  N  T  *1 
WRITE  (5,603)  YL 

603  =ORNAT  (1H*-,1A1) 

C 

100  CONTINUE 
C 

C  CA.CULATE  AND  PRINT  X  AXIS  VALUES 
WRITE  (6*634)  XMlN 
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■A 


604  =ORMAT  (  110,311.4) 

I PMT*2L 

30  200  I  *  1 »  N  N  X 
XX-X1INM4QX 
I T-I XF ( XX ) *9 

IF  (IT.wF.IPMT)  CO  TO  20) 

IF  CIT.3r.i24>  GO  TO  200 

I  PNT-ITU1 

RkITE  (6,605)  l  T  » X  X 

605  :  0  R  M  A  T  C  LH*,  r«,GU.  4) 

200  EUNTINJE 

C 

C  Wfcl  TE  X  LA3EL 

IF  (NXC-UR.EO.O)  RETURN 

IP1-NXCT4R/2 

I  P2-‘1X/2 

.1-IP2-I ?1 

IF  (Li.-T.L)  Ll-i 

-2-NXCHAR 

IF  C  L  2 . GT . CHX-L1JJ  L2-HX-L1 

NSKP«12».l 

_2-(L2*9>/10 

RRITE  (6,670)  NSKP , ( XLA3  =  L ( I) *  I -1, L2 ) 

670  : ORM  AT  ( t , -X , 1 1A 10 > 

RETURN 

C 

900  WRITE  (6,690) 

690  : ORMAT  (45H  **  **  ERROR  IN  GRID.  NO  PLOT  CONSTRUCTED.) 

IER-1 
RETURN 

901  WRITE  (6,691) 

591  -0RM4T  C4H  **  **  ERROR  IN  P  LOT Y •  NO  PlOT  DRAWN.) 
IER-2 
RETURN 
END 
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SUBRDUT  1  NE  PLTRNO 


c 

c 


SUBROUTI NE  PLTRNO  (A.  B»  X»  Y ) 

SUBROUTINE  TO  FIND  "NICE"  PLOT  BOUNDARIES  F OR  INTERVAL  CA 

A  *  INPJT  INTERVAL  LOWER  MARGIN. 

3  *  INPUT  INTERVAL  UPPER  MARGIN. 

X  =■  LOWER  PLOT  BOUNDARY  :GR  THE  INTERVAL. 

t  -  UPPER  PLOT  BOUNDARY  =DR  THE  INTERVAL. 

3(P)  =•  AINT  (  ABS  (»)  *  Z) 

IF  (ABS  (A)  .NE.  ABS  (»))  GO  TO  5 
X  -  A 

Y  -  B 

RETURN 

NITH  A  £  B  DECIMAL  POINTS  ALIGNED  FIND  HIGHEST-ORDER 
UNEQUAL  DIGIT. 


a 


•  B  >  j 


b 

z 

-  1.0 

IF 

(ABS  (A)  . 

GE.  Z  .OR.  ABS 

IB)  . 

GE.  2) 

10 

IF 

(3(A)  .NE. 

0(B))  GO  TO  22 

Z 

-  Z  ♦  10.0 

r 

GO 

TO  10 

u 

2D 

IF 

(0(A)  .EQ. 

0(B))  GO  TO  24 

22 

Z 

-  Z  /  10. 

GO 

TO  20 

24 

Z 

-  Z  *  10. 

C 

IF 

ONE  3“  THE 

DIGITS  IS  0  HOVE  ONE 

PLACE 

IF 

(3(A)  .NE. 

0.  .AND.  0(B) 

.  N  E  . 

0)  GO 

30 

r 

Z 

*  Z  *  10. 0 

U 

32 

< 

-  AINT  (A  * 

Z)  /  z 

r 

IF 

(A  .-T.  Oi 

0  .AND.  A  .NE. 

X)  X 

-  AINT 

i#  , 

Y 

-  AINT  (B  * 

Z)  /  z 

IF 

(3  .ST.  0. 

0  .AND.  B  .NE. 

Y)  Y 

-  AINT 

r» 

IF 

((X  -  Y)  t 

(A  -  B)  .ST.  2. 

0)  GO 

TO  30 

Z 

Z 


l.O) 

1.0) 


RETURN 

END 


1 


/  l 
/  Z 


8 


| 

{ 


r 

4 

/ 

A 
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SUBROUTINE  READS 


SUBROUTINE  READS  (.UN,  BJFFER.  NS,  NF  ) 

S  U8R3UT I  ME  T  3  READ  SUHUARY  RECORD  -  - 

SUNS  OVER  FREQUENCY  AND  DIRECTION* 

REAL  BU==ERINB) 

C 

RE  HIND  »JN 
C  SKIP  TO  SREC. 

DO  ID  1  *  1 »  NF 

BUFFER  IN  (LJN*1)  ( DUM  *  D  DM ) 

C 

IF  (UNIT  (lUR) )  10»  50.  50 

r+ 

*10  CONTINUE 
C  READ  SREC. 

3UFFER  IN  (L JN» 1)  C BUFF E R (I) « BU F= E R  ( NBI  ) 

C 

IF  (UNIT  ( _U  N  ) )  20.  50.  50 
C 

20  CONTINUE 

REWIND  LJN 
C 

RETURN 

C 

50  NRITE  (b.IOOOI  LUN 

1000  *  ORMAT  IB2HD*  *  *  ERROR  DR  EOF  READING  UNIT.I3.6H  * 
C 

STOP 

c 

END 


£ 

I 


*  *  > 
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-unction  xincr  (xi»  x2) 

c 

C  -  1  NO  "MEM"  r  1C  INTERVALS* 

C  ADAPTED  FROM  TEKTRONIX  P.OT  50  SOFTWARE. 

C 

3  A  T  A  X  N  0 i N  T  / 10./ 

C 

RAW  *  (X2  -  XI)  /  X  NO I N  T 
1  EXP  -  A.OGIO  (RAW) 

S  -  10.»>IEXP 

IF  (RAW  ,lT.  1.  .AND.  >  .NE.  RAW)  S  -  0.  I  *  S 
T  »  RAH  /  S 

IF  ( T  .GT.  2. )  GO  TO  10 

IF  (ABS  IT  -  1.)  .ST.  .01)  S  -  2.  *  S 

SO  TO  30 

10  IF  (T  .ST.  5.)  GO  TO  20 
S  -  5.  *  S 
SO  TO  30 

20  5  -  10.  *  S 

C  5  »  "NEAT"  TIC  INTERVAL. 

C  ADJUST  DATA  MINIMUM. 

30  11  *  XI  M 

X  Ml  -  S  ►  FLOAT  (Ml  ♦  2) 

40  IF  ( XM1  . LE •  XI)  GO  TO  53 
<M  1  -  XU  -  S 
SO  TO  40 

C  ADJUST  DATA  MAXIMUM. 

50  12  -  X2  f  S 

<M2  -  S  *  FLOAT  (M2  -  2) 

60  IF  ( X  2  . _  E .  X  M2  )  GO  TO  7) 

XM2  -  X12  *■  S 
SO  TO  GO 

C  SET  VALUES  TO  RETURN  TO  CALLING  PROGRAM. 

70  <1  =»  XI 1 

<2  -  X M 2 
XINCR  -  S 
C 

RETURN 


C 


1R0UTINE  REAUJS 


SUBROUTI NE  RE  AD  J  S (  _UNt SI  0 , NF *NGR I D ) 

C 

C  THIS  SUBROUTINE  READS  1-D  SPECTRAL  VA.UES  FOR  SELECTED  STATIONS 
C 

C  SID  -  RETURNS  RESULT  OF  SUBROUTINE 
C  BUF:ER  -  TEMPORARY  IN>UT  BUFFER 
c  lun  -  logical  UNIT  NUMBER 
c  j  -  frequency  dj  loop  index 

C  L  -  BUFFER  INDEX 
C 

REAL  BUf-ER(501)»  S1DI  50  3  , NF) 

INTEGER  NF , LUN, I . J . NGR  ID 
C 

C  SET  FILE  POINTER 
REWIND  J  N 

C  DO  JNTIL  AL _  FREQUENCIES  HAYE  BEEN  PROCESSED 
00  30  J-l  ,  NF ,  1 

BUFFER  IN  (LUN»  L )  (BUFFER(l),  BUFFER! SOL) ) 

IF  (JNIT(LUN))  L0,40»<*0 
10  DO  2D  I-1,NGR1D,1 

S1D(  I  ,  J  )*3UFFER  C I  *1 ) 

20  CONTINUE 

30  CONTINUE 

C  RESET  FILE  POINTER 
REWIND  _  JN 
RE  TURN 

C  ERROR  CONDITION 

<*0  WRITE(f>,50>  LUN 

50  =ORNAT(  32H0*  *  *  ERROR  OR  EOF  READING  UNIT,I3t6H  *  <■  ♦ ) 

STOP 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

r 

u 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 

c 


c 


S  UBROUT I  ME  P_CURV!NPTS,NCRPH,X,Y,XHN,XMX,Yn.N,YMX, 

♦  NCHAR i H TLE  » NX  CHAR, X  L  A  B  E  L  ,  N  Y  C  HA  R , YLABE. , NEW  PAGE ,MX,NY> 

THIS  SU3RO J  T I NE  DOES  PRINTER  PLOTS  OF  UP  TO  ID  CURVES  WITH  UP 
T3  10 D  P  D  l  NTS  EACH. 

NPTS  -  ACTUAL  NJMBER  DF  POINTS  PER  CURVE 
NCR 3  H  -  NJN3ER  DF  CURVES  PER  GRAPH 
X  -  X  VAL JE  S  TO  BE  PLDTTED 
Y  -  EACH  CD. UNN  IS  A  SET  OF  Y  VALUES 

THE  NEXT  FJJR  VARIABLES  ARE  PASSED  PARAMETERS  THAT  MAY  BE  CONSTANTS. 
IN  PARENTHESES  ARE  THE  VARIABLE  NAMES  THAT  THIS  kOUTINE  WILL  USE  FOR 
CALCULATIONS. 

XMN(XMIN)  -  MINIMUM  X  VALUE 

XMXtXMAX)  -  MAXIMUM  X  VALUE 

NOTE:  IF  XMN-XHX  THENA  SEARCH  IS  PERFOkHED  TO  FINO  X  LIMITS 
YHNIY.NIN)  -  MINIMUM  Y  VALUE 

YMX(YMAX)  -  MAXIMUM  Y  VALUE 

NOTE:  IF  YMN=*YMX  THEN  A  SEARCH  IS  PERFORMED  TO  FIND  Y  LIMITS 

NCHAR  -  NUM3ER  OF  CHARACTERS  IN  TIT.E 

TIT.E  -  ACTUAL  TITLE  IN  CHARACTERS 

NXCHAR  -  NJMBER  OF  CHARACTERS  IN  X-AXIS  LABEL 

XLA3EL  -  X-AXIS  LABEL 

NYCHAR  -  NUMBER  OF  CHARACTERS  IN  Y-AXIS  LABEL 
YLA3EL  -  YAXIS  -ABEL 

NEW 3  AGE  -  -  _  AG  -OR  WRITING  A  TOP-DF-PAGE 
NX  -  NUMBER  OF  PRINTER  SPACES  FOR  X-AXIS 
NY  -  NUMBER  OF  PRINTER  SPACES  FOR  Y-AXIS 

OOX  -  DISTANCE  3ETWEEN  X  TIC  HARKS 
DDY  -  DISTANCE  BETWEEN  Y  TIC  MARKS 
ISYM  -  CHARACTERS  USED  TO  PLOT  CURVES 
IER  -  ERROR  C 00 E  (0  IS  OKI 
NOJT  -  NUM3ER  OF  POINTS  OUTSIDE  OF  GRID 

.OGICAL  NEHPAGE 

INTEGER  NPTS,NGRPH,NCHAR,NXCHAR,NYCHAR,NX,NY, I S YM{ 10 >  ,  1  E R , NO J T 
REAL  X(L03),r(100, 1 0 ) , X M N , XM I N, XMX , XMAX , YMN , YHI N , YHX , YMAX 
REAL  TIT_EllD),XLA3EL(i) ,  Y  L  ABE  L  (  1 1  ,  DDX  ,  DDY 
OATA  ISYM  YH«,1H*,1H#,IMX,IH.,HV,1HA,1HB,1HC,1HD/ 

CA_  C  UL  A  T  E  LIMITS 
0 I D  USER  SPECIFY  DOMAIN? 

IF  (XMN  .ED.  XMXJ  SO  TO  2 
XMIN  *  XMN 
XMAX-X.MX 
GO  TO  A 

NOT  USER  SPECIFIED  SO  CALC'J.ATE 
Z  CALL  LIMITS! XMIN, X  MAX »NP TS , 1 ,NP T S , X > 

DID  USER  SPECIFY  RANGE? 

4  IF {  YMN  . E  0 .  YMX  I  GJ  TO  6 
YHIN  •  YMN 
Y  MAX  -  YMX 
GO  TO  0 

NOT  USER  S3ECIFIED  SO  CALCJ.ATE 
6  CALL  LIMITS! YMIN, YMAX, 1DD,NGRPH,NPTS»Y) 

END  OF  GETTING  lINITS 
8  CONTINUE 

FIND  TICK  MARK  INCREMENTS 
DDX  *  XI NCR!XMIN,XMAX) 

DDY  **  XI  NCR! YMIN, YMAX) 

GENERATE  AXIS 

CALL  GRI  DV!XMAX,XMIN,YMAX, YM I N , D D X , DO Y , NX, N Y  , IER) 

PLOT  CURVES 

DO  10  I  »  l »  NGRPH, 1 

CALL  pLOTV(X,Y(L,I)»N3TS»ISYM(I)  , MOOT, IER) 

10  CONTINJE 

LABEL  GRAPH  AND  DUHP  GRID 

CALL  L A3. V! NX  CHAR, XL  A  BEL, NYCHAR, YL ABEL, NCHAR* TI TLE , NE WP AG E , 1 1 R ) 

RETURN 

ENO 
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SUBROUTINE  ZPLUKNPTS  , NG  R  P  H  , X  ,  Y  ,  XMN  ,  XMX  ,  YM.N ♦  YMX  * 

♦  YISC.<IMC, 

♦  NCHAR  » r I TLE  ,NXCHAR,XLA3EL,NYCHAR,  YLABEL,  XAXLN , YAXLN, XO, XI, Y0,Y) 

C  NP  T  S  -  NUMBER  0-  POINTS 
C  NGR  *  H  -  NIM3CT  GF  CURVES  TO  BE  GRAPHED 
C  X  -  ARRAY  0-  X  C  OORD I N AT  E  S 
C  Y  -  Y  COORDINATES,  EACH  CULJHN  IS  A  SET 
C  INCH  A  R  -  LENGTH  OF  TITuE 
C  TIT.E  -  TIT.E  OF  GRAPH 

C  NXC-UR  -  NJM3ER  3F  CHARACTERS  IN  X-AXIS  LABEL 
C  XLA3EL  -  ARRAY  OF  CHARACTERS,  ACTUAL  LABEL  OF  X-AXIS 
C  NYCHAR  -  .ENGTH  OF  Y-AXIS  LABEL 
C  YLA3EL  -  A  3  E  L  OF  Y-AXIS 
C 

C  THE  NEXT  F  3  JR  VARIABLES  ARE  PASSED  PARAMETERS  THAT  MAY  BE  CONSTANTS. 
C  IN  PARENTHESES  ARE  THE  VARIABLE  NAMES  THAT  THIS  ROUTINE  HILL  USE  FOF 
C  CALCULATIONS. 

C  XMN(XHIN)  -  MINIMUM  X  VALUE 
C  XMXCXHAX)  -  MAXIMUM  X  VALUE 

C  NOTE:  IF  XMN-XMX  THENA  SEARCH  IS  PERFORMED  TO  FIND  X  LIMITS 
C  YMNIYMINI  -  MINIMUM  Y  VALUE 
C  YMXIYMAX)  -  MAXIMUM  Y  VALUE 

C  NOTE:  IF  YMN-YMX  THEN  A  SEARCH  IS  PERFORMED  TD  FIND  Y  LIMITS 
C 

C  XORG  -  INITIAL  X  VALUE  FOR  X-AXIS 
C  XI  N  C  -  TIC  MARK  INCREMENT  F3R  X-AXIS 
C  YORG  -  INITIAL  Y  VALUE  FOR  Y-AXIS 
C  YINC  -  TIC  MARK  INCREMENT  F 3 R  Y-AXIS 
C  T  -  ARRAY  USED  FOR  SCALE  CA.LS 

C  TX  -  ARRAY  -OR  _INE  CALLS;  X  V ALUE S » XO RG , X  I NC 
C  TY  -  ARRAY  JSEO  FUR  LINE  CA.LS;  Y  V AL UES , YORG , Y I NC 
C  XO  -  LEFT  X  COORDINATE  OF  GRAPH  IN  INCES 
C  XI  -  RIGHT  <  C03RD I  NATE  OF  GRAPH  IN  MCHES 
C  YO  -  BOTTOM  Y  COORDINATE  OF  GRAPH  IN  INCHES 

C  Y1  -  TOP  Y  COORDINATE  OF  GRAPH  IN  INCHES 

C  T1  -  X  OFFSET  FOR  TIT.E 

C  T2  -  Y  OFFSET  FOR  TIT.E 

C  ILET  -  INTEGER  >ASSED  TO  LINE  TO  SPECIFY  PLOTTING  CHARACTER 

C 

C 

INTEGER  NPTS,NGRPH,NCHAR,NXCHAR,NYCHAR 

REAL  XMN.XMI N , X  MX , < M AX , Y MN , YM I M , Y MX , YMA X * X AXL N, YAXLN, XO , XI , Y 3 , Y 1 
REAL  X0RG,XI.NC,YURG»YINC»T1,T2 
REAL  XIL)  ,  Y ( IGG  ,10)  ,  TIT. Ell) 

REAL  XLA3ELI1),  YL  4  8  EL (  l ) 

REAL  TIS)  ,  TXI102),  T Y 1 1 3 2 ) 

N  CHAR  =  NCHAR  -  20 
C 

C  FIND  EXTREME  VA.UES  IN  DATA 
C 

C  DID  USER  SPECIFf  DOMAIN? 

IF  IXMN  ,EO.  XMX )  GO  TO  2 
XMI.N  -  XMN 
XMAX-XMX 
GO  TO  4 

C  NOT  USER  SPECIFIED  SO  CALCU.ATE 

2  CALL  LIMITS(XMIN,XMAX,NPTS,1,NPTS,X) 

C  DID  USER  SPECIFf  RANGE? 

•4  IFIYMN  .  E  Q  *  YMX )  GO  TO  b 
YM I N  -  YM  N 
YMA  X  -  YMX 
GO  TO  8 

C  NOT  USER  SPECIFIED  SO  CALCJ.ATE 

6  CALL  LIMITS! YMIN,YMAX,  13), NGRPH, NP T S , Y ) 

C  END  OF  GETTING  LIMITS 
8  CONTINUE 

C  PRE  *  ARE  PLOT  ROJTINES 

CALL  PLOT (1.25, 0.5, -3) 

C  SC4.E  VALUES  FOR  PLOT  ROUTINES 
XO.RG-XMI  N 
f 0RG-YM1 N 

IF(XINC.NE.O.O)  GOTO  10 
Till  -  XMIN 

T(2)  -  XMAX  A37 


SUBROUTINE  Z  PLOT 


CALL  SCA_E(T.XAXLN,2»1> 

XORG  =  T(3) 

<  i  nc  -  r  mi 
10  continue 

IF (rise. ML .3.0)  euro  12 
r  ( 1 1  -  vim 

r  (  2)  *•  Y  X A X 

CALL  SCA.f .( T ,YAXLN,2»1) 

YURG  =  T ( 3) 
flSC  -  T  (  A ) 

C  DRA  4  X-AXIS 
12  CONTI NJE 

CALL  AXIS!  XO»YO»XLABEL»( -NX CHAR ) »XAXLN,0*0»XDkG»XINC) 
C  DRAW  YAX1S 

CALL  AXIS! XO,YC»YLABEL,Nf CHAR, YAXLN, 90.0, Y OR G,Y INC  > 

Z  DRA 4  TO?  OF  GUO 

CALL  AXIS! X0,Y1,TI TLE ,NC NAR , XAXL N , 0 . 0,999. 0* 1 . 0 > 

C  ORA X  ENO  OF  GRIO 

CALL  AX  I  SI  Xl,YO,O,0,YAXLN,9O.D»999.O»l.O> 

Tl-XOM  Xl-XO) /2.0  -  (  NCHAR/1A.0  > 

I  2"0. 35  f  1 

CALL  SYilOLC  T1»T2»0*0»TI T LE  * 0, D , SCH AR ) 

I  LET  -  0 

30  23  I  -  1,  NPTS,  1 
T  X  (  I  )  »  X  (  I  ) 

20  CONTI  SUE 

TX(NPTSU>  -  XORG 
I X ( NPTS  *2 )  -  XINC 
TYCNPTSU)  -  YORG 
IY(NPTS*>)  «.YINC 
30  AO  I  ■  1,  NGRPH,  1 

do  n  j  >  i,  npts,  l 
r  y  i  j  j  -  y  (  j  » i ) 

30  CONTI NJE 

CALL  PLOT ( XO  »  YO  «  3 ) 

CALL  _INE(TX*TY  »NPTS»L»1*ILETI 
fl-Yl-O. 15 

CALL  SYUOL{Xl*O.2>,YI,O.l,ILETt0.0»-l) 

I  LET  -  ILET  ♦  1 
AO  CONTINUE 

CALL  PLOT ( (XO+lA.O) *(Y0-)»5)»-3) 

NCHA1  *  NCHA*  ♦  20 

RETURN 

END 
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C.  MEAN  DIRECTION  CONTOUR 

This  plot  is  a  contour  graph  of  mean  direction  over  the  grid  that  the 
wave  model  operated  on.  The  X  and  Y  axes  correspond  to  X  and  Y  distance  on 
the  grid.  The  contours  are  changes  in  the  mean  direction  of  the  wave  motion. 
This  program  reads  from  the  summary  tape,  hence  only  the  final  time  step  can 
be  plotted.  Provision  for  a  title  is  made.  This  contour,  like  the  others, 
makes  use  of  the  subroutine  CONTUN. 


INPUT  DATA  LIST  FOR  MEAN  DIRECTION  PLOT 


I 

( 


FORMAT 

VARIABLE 

DESCRIPTION  ! 

I10.7A10 

NCHAR, TITLE 

NCHAR  is  the  number  of  characters  in  the  title,  ( 

TITLE  is  the  title  of  the  plot  £ 

110,110 

NB.NF 

NB  is  number  of  words  of  data  to  read  in  from  » 
tape,  NF  is  the  number  of  frequencies  used  in  f 
model  run  *- 

no 

I0FSET 

Number  of  points  of  data  to  skip,  used  to  bypass  f 

header  info  or  special  points  1 

2110 

IGRDX.IGRDY 

Number  of  points  in  grid  in  X  and  Y  directions,  f 

respectively  { 

I10,3F10.0 

MOOE,AR( 1 ) , 
AR(2),AR(3) 

Correspond  to  mode  and  AR  of  CONTUN,  refer  to  CONTUN  ^ 

no, fio. o 

NDGTS,SIZE 

Number  of  decimal  places  to  be  printed,  size  in 
fractions  of  an  inch  | 

no. fio. o 

NONO, THETA 

E 

If  NONO  is  negative  then  plots  are  not  labeled, 

else  plots  are  labeled,  labeling  occurs  at  an  f 

angle  equal  to  THETA  (; 

2F10.0 

SI,SJ 

Points  per  inch  in  Z  direction  and  Y  direction,  c 

respectively  t 

AR(3) 

F(20,20) 

FSMSK(530) 

BUFFER(2000) 

TITLE(7) 

FS ( 1 8 ) 

NCHAR 

NB 

NF 

IOFSET 

NGRID 

IGRDX 

IGRDY 

MODE 

NDGT 

SIZE 

NONO 

THETA 

SI 

SJ 

IND 

XMAX 

YMAX 

XI  NOT 

YINDT 


VARIABLE  LIST  FOR  MEAN  DIRECTION 

Real,  interval  values  for  CONTUN 
Real,  array  of  values  to  be  contoured 
Real,  mask  array  for  CONTUN 
Input  buffer  for  READS 
Integer,  title  of  plot 
Integer  mask  array  for  CONTUN 
Number  of  characters  for  title 
Integer,  size  of  buffer 
Integer,  number  of  frequencies 
Integer  number  of  words  to  skip 
Integer,  number  of  grid  points 
Integer,  number  of  points  in  X  direction 
Integer,  number  of  points  in  Y  direction 
Integer,  indicates  mode  for  CONTUN 

Integer  number  of  decimal  places  to  be  used  on  contour  labels 

Real,  size  of  contour  labels  in  parts  of  an  inch 

Integer,  if  negative  contours  are  not  labeled,  if  positive 
or  0  contours  are  labeled 

Real,  angle  of  rotation  for  contour  labels 

Real,  number  of  points  per  inch  in  X  direction 

Real,  number  of  points  per  inch  in  Y  direction 

Integer,  index  into  BUFFER 

Real,  length  of  plot  in  X  direction  in  inches 

Real,  length  of  box  in  Y  direction  in  inches 

Real,  how  far  from  box  edge  to  first  point  in  X  direction 

Real,  how  far  from  box  bottom  to  first  point  in  Y  direction 
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on  no  o  o  no 


PROGRAM  MM 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 


c 


PROGRAM  MN( INPUT  »UUTPUT*TAPE5-INPUT ,T AP E6-GUTPU T ,TAPE 7, TAPt 1- 1 ) 

AK  -  INTERVAL  VALUES  FOR  /CONTUN/ 

F  -  INPUT  ARRAY  FOR  /CONTUN/ 

FS  -  MASK  ARRAY 

FSMSK  -  MASK  ARRAY  FOR  CONTUN 

1CR0X  -  NUMBER  OF  GRID  POINTS  IN  X  DIRECTION 
I  GKO Y  -  NUMBER  OF  GRID  POINTS  IN  Y  DIRECTION 
MODE  -  SPECIFIES  MODE  FOR  /CONTUN/ 

MONO  -  FLAG  TO  TELL  /CONTUN/  WHETHER  OR  NOT  TO  LABEL  CONTOURS 

NOGT  -  NUMBER  OF  DIGITS  IN  CONTOUR  LABEL 

NPTSK  -  NUMBER  OF  GRID  POINTS  TO  SKIP 

SIZE  -  HEIGHT  OF  CONTOUR  LABELS  AS  PART  UF  AN  INCH 

SI  -  NUMBER  OF  POINTS  PER  INCH  IN  X  DIRECTION 

SJ  -  NUMBER  OF  POINTS  PER  INCH  IN  Y  DIRECTION 

THETA  -  ANGLE  THAT  CONTOUR  LABELS  ARE  ROTATED 

REAL  F (20,20) , F  SMSK ( 530 ) , AR ( 3 ) , BUF F E R ( 2000 ) 

INTEGER  TITLE (7  ),FS(16) 

RE AO  IN  LENGTH  OF  TITLE  AND  TITLE  OF  GRAPH 
RE AD (5, 1000)  NCHAR, (TITLE ( I) ♦ 1-1*7,  1) 

GET  BUFFER  SIZE  AND  NUMBER  OF  FREQUENCIES 
READ (5,1010)  NB.NF 
GET  OFFSET 
R  EAD (5,1010)  IOFSET 
GET  NUMBER  OF  GRID  POINTS 
READ( 5, 1010)  NGRIO 
GET  X  AND  Y  DIMENSIONS  OF  GRID 
READ(5»1010)  IG  RDX  » IGRDY 
START  GETTING  /CONTUN/  INFORMATION 
GET  MOOE  AND  AP.  VALUES 
READ (5,1020)  MODE ♦ AR ( 1 ) ♦ AR { 2 >  ,  AR  (  3 ) 

GET  NUMBER  OF  DIGITS  AND  SIZE  OF  LABELS 
R  E  AD (5, 1020)  ' NDGT, S I ZE 

GET  LABELING  FLAG  AND  ANGLE  OF  ROTATION  FOR  LABELS 
READ( 5, 1020)  NONO, THETA 
READ ( 5 , 1030)  SI,SJ 
1000  FORMAT! I 10.7A10 ) 

1010  F  ORM A  T (8110) 

1020  FORMAT! I 10,7F10.0) 

1030  FORMAT (3F10.0) 

LOAD  BUFFER 

CALL  REAOSd, BUFFER, N8»NF  ) 

ZERO  OUT  MASK  ARRAYS 
DU  98  1-1,18,1 
F  S ( I ) -0 
f sms k (  n-o.o 

98  CONTINUE 

DO  99  1-19,530,1 
FSMSK! I )=0.0 

99  CONTINUE 

I N0-I0FSET*2*NGRID+1 
00  20  J-l, IGRDY, 1 
DO  10  1-1,  IGRDX,1 

F(I,J)-AMOD(( 57 .296$ BUFF L  R ( 1ND) ) ,360.0) 

IF (F  ( I  ,J)  .GT  ♦ 180.0 ) F ( I ,J)-F (I «J 1-360.0 
IND-INQ+1 
10  CONTINUE 

20  CONTINUE 

SET  UP  FOR  PLOT  ROUTINES 
GET  DIMENSIONS  OF  PLOT 
XMAX-IGRDX/S I 
YMAX-IGROY/S J 
INITIALIZE  THE  PLOTTER 
CALL  PLOTS(0»Q, 7) 

MOVE  PEN  AWAY  FROM  EDGE  OF 
CALL  PLOT (Q.5,0.5»-3) 

DRAW  BOX  AROUND  PLOT 
CALL  PLOT (0.0 ,YMAX,2 ) 

CALL  PLOT (XMAX, YMAX.2 1 
CALL  PLOT (XMAX, 0.0, 2) 

CALL  PLOT ( 0.0, 0.0, 2) 

X1N0T-1. 0/(2.0*511 
VlNDT-1.0/(2.O*SJ) 

SET  UP  NEW  ORIGIN 
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PROGRAM  HN 


CALL  PLOT! XINDT ,YINDT,-3) 

C  PUT  TITLE  ON  GRAPH 

CALL  S YMBULI 0.0,YM AX, 0.2 5, TlTLE,0.0,NCHAk> 
t  DO  CONTOUR  PLOT  FINALLYJJiJIJ 

CALL  CON TUN  IF , 1 GROX , 1 GROY , F S , AR , MOD E , S 1 , S J , THET A ,NOHO, 5  I ZF 
♦  F  SMSK , NOGT ) 

CALL  PLOT (0,0, 999) 

C  DUMP  DATA 

WRITE(6»  302)  I G  ROX , I GRDY 

302  FORMATION  GRID  IS  ,M,3H  X  ,I<t) 

WR I TE ( 6  »  22L*  I  TH ET A , NDGT , S I  2 £ 

2  20  FORMAT!  7M  THETA»,F  10 . 6, 5X  ,  5HNDGT  =>  ,  1  A,  6X  ,  5HS  1 2  E  =  ,  F10,  M 
WRITE (6,230)  XMAX.YMAX 

230  F0RMATI13H  SI2E  OF  BOX  : ,  F 10 .6, 3H  X  ,F10.6> 

STOP 

END 


A43 


no  or* 


MR0UT1NE  RE  AOS 


SUBROUTINf  READS  (LUN,  BUFFER,  NB ,  NF ) 

SUBROUTINE  TO  READ  SUMMARY  RECORD  -  - 

SUMS  DVEP  FREQUENCY  AND  DIRECTION, 

REAL  RUFCFR(N3) 

C 

RFWINO  L  UN 
C  SKIP  TO  SPEC. 

DO  10  I=1,NF 

BUFFER  IN  ILU'N  1 )  (DUM,DJM) 

C 

IF  (UNIT  (LUN))  10,  50,  50 
C 

10  CONTINUE 
C  READ  SRFC, 

BUFFER  I  N  ( L UN  ,  1 )  ( BUFF E R ( 1 >, BUFF FR C N B > > 

C 

IF  (UNIT  (LUN))  20,  50,  50 
C 

20  CONTINUE 

REWIND  LUN 
C 

RETURN 

C 

50  WRITE  (fa, 1000)  LUN 

1000  FORMAT  (32H0«  *  ♦  ERRDR  OR  EOF  READING  UNIT,I3,6H  4 
C 

STOP 

C 

END 


4  4  ) 
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SU3RDUT I  ME  C  3  NT  UN  (  =  ,  I  MAX ,  JH  AX ,  F  S  ♦  A  *  ,  MODE,  S  :  AL  E  I  .SCALE J,  THE  T  At  NONO, 
1SIZE»FSMS<,N0GT) 

TRACES  CONTOURS  THROUGH  4RRAY  FIIMAX.JMAX)  AMD  PLOTS  THFH 

WHITH  SC  A  _  E  I  ,  S  C  A  L  E  J  n  0 1  MTS  PR.  CM.  THE  CONTOURS  ARE 
LABELED  AT  AN  ANGlE  THETA  WITH  THE  X-AXES  PROVIDED 
NDNO  -AN  INTEGER  .GE.O.  IF  NONO.LT.O  THE  CONTOURS  ARE 
NOT  LABELED.  SIZE  IS  THE  SIZE  OF  THE  LABEL. 

MODE  -  L  FAMILY  0-  CONTOURS  IS  TRACED  WITH  I  NT E  RV  AL-AR ( 1 ) , 

MODE  -  2  FAMILY  OF  APPR  OX  I  MAT  E  L  Y  AR(1I  CONTOURS  IS  TRACED  KITH 
A  REASONABLY  COMPUTED  CONTOUR  INTERVAL. 

MODE  -  3  A  SINGLE  CUNTOJR  WITH  VALUE  ARC1)  IS  TRACED. 

MODE  -  '*  AR  (  1  )  -  INT£RVA_  »  A  R  (  2 1  -MIN.ARI3)  -MAX 

MODE  -  >  AR ( 1 )  -NR  OF  CONTOURS*  AR ( 2 ) * F MAX » M I N » AR ( 3 » *F M AX-MAX 

IMAX  COINCIDES  WITH  THE  PAPER  X-AXLS.  DIMENSION  OF  ARRAY  IN  X  DIR 
J M A X  COINCIDES  WITH  THE  PAPER  Y-AXES.  DIMENSION  OF  ARRAY  IN  Y  DIR 

FS  AN  INTEGER  ARRAYS  MJST  BE  GIVEN  DIMENSIONS  IaImaX* JMAX/31  IN 

calling  program. 

NOGT-SIGNIFICANCE.IF  NED.  IS  CDMPJTED. 

2  S  COMPLEMENT  ARITMETIC 

EXTERNAL  FONT  ION  LAND  I, US  IS  THE  BOOLEAN  I. E. LOGICAL*  ANO  OF  T  HO 
FUl.LWORO  INTEGERS. 

EXTERNAL  FUNCTION  LOR  I.JS  IS  THE  BOOLEAN  DR  OF  TWO  FULLWORD  INTEGERS. 

SPECIFICATION  STATEMENTS. 

CHANGE  .OS  5.1.73 
INTEGER  FSII) 

*  E AL  JAY, JAYZRO.FIIMAX.JMAX) 

DIME  NS  I  ON  MASK  (  31)  ,NPT<  4,  3)  .  ARC  3)  »  AC  I  5)  »  ALCI5  ) 

DIMENSION  IB=G( 103) , JBEG( 100 ) . C 0  MS  V { 10D ) ,NI NS  V ( 100 ) 

INTEGER  -SMS<<1) 

-OGICAL  NALT.LPLOT.KLOG 
-OGICAL  <LING, THING 

DATA  NPT/3,4, 1.2.2, 1.4, 3.5,3.2.17, I  FLAG/D/ 

OATA  AC/L. 25,2. ,2.5,5., ID./ 

OATA  ALG/. 097, .3, .398, .7, 1.0/ 

C  FUNCTION  DEFINITION. 

G<I,A,3)«FL0AT(  I ) - A / ( B  — A ) 

C  SET  PLOTTING  PARAMETERS. 

I  DFS  =  JMA<*IMAX 
IDFS-ID=$/31*1 
ARG2-AR ( I  ) 

<BEG«1 

RBEGMX-D 

CSALEI -1. /SCALE  I 
CSALEJ-1. /SCALE J 
C  IF  (  10JT  ..ME.  I )  GO  TO  604 

C  OO  632  I-l.IMAX 

C  rfRITE  ( b , 603 )  (F(I,J),J-l,JMAX) 

C  602  CONTINUE 
C  603  : ORMAT ( H  ,2LF6.0) 

C  604  CGMTINJE 

IF  ( IFLAG.EQ.5)  GO  TO  4 
OD  3  1-1,31 

3  MASK ( I ) -2**1 31-1 > 

C 

C  SET  UP  LOOP  CONTROLLING  SELECTION  OF  CONTOURS 
C 

IFLAG-5 

4  I  MAXI- I MAX-1 
JM4XI-JHAX-1 

IF  (MODE. NE. 31  GO  TO  10 

=  M I  N  -  A  R  G  2 

C0NINT-ARG2 

NC0N5-1 

GO  TO  1? 

10  FMAX-Ftl.l) 

-  MI N-F  MA  X 
OO  12  I-l.IMAX 
00  12  J-L.JMAX 


o  no  o<  >n  n 


•  (JO  TINE  cuntun 


:MlN»AMl  <iI(FllN1F(l  ,  J)  ) 

12  -MAX-AH4<l(f  HAX,FI  I  ,  J)) 

IF  (MODE. HE. 5)  GU  TO  123 
ARI  3)  -4?  (  3)<--MAX 
ARI 2) -A? ( 2 )>FMAX 
A  RG  2  * ( A  R  l  3)-AK< 2) )/AR (1) 

120  G  0  N  I  N  T  3  A  R  G  2 

IF  MU3E.NE.2)  GO  TU  I  1 
C  IF  MDDr  -2  SELECT  A  CONTOUR  INTERVAl. 
4LGCNT*A_0G1D( ( FnAX-FMlN) / ARG2) 
N-ALGCNT 


4L  GCNT  ■A'UIDI  A LG C NT  ,  1*  ) 

IF  ( ALGC NT.GE .0.  )  SO  TO  18 
N-N-l 

ALGCNT-l . ♦ALGCNT 
18  8“ ALGCNT 
4-1. 

JO  19  I  •  L  ,5 
C-ABSU_3CNT-ALG(I )  I 
IF  (C.6E.3)  GO  TO  19 

3- C 

4- AC(  II 


19  CONTINUE 
;0NINT-A*13.**N 

C  DETERMINE  NJMBER  OF  CONTOURS  AND  MINIMUM  VALUE 
13  IF  (FMIN.GT.3.)  FMIN-FMI N*CONINT 
=  MIN-CONI.NT*AINT  (FMIN/CONINT  ) 

IF  (FHAX.LT.3.)  FMAX-FMAX-CONINT 
F  MAX -C  ON  I  NT<- A  I  NT  If  MAX/ CONI  NT) 

IF  ( NODE • L T • 9  )  GO  TO  11 
-MIN-AMAX1(FMIN»AR(2)  ) 
r MAX-AMI  N1(FHAX,ARI3) ) 

11  NCONS-IF 1AX— FMIN)/CUNINT^1, 

SCUNS-HI NOl NC0NS.93 ) 

IF(NCONS.LE.D)  GO  TO  703) 

C  DETERMINE  NJ1BER  OF  DIGITS  IN  LABEL 

15  3EL“l#E-f»*C0NlNT 
IFINDGT.GE.O)  GO  T3  20 
HD&T-O 

21  IF  CABS! AMOOI CO  Ni  N  T  #  1 0.  *  *  NDG T  ,  1 . )) ,LT. DEL)  GO  TO  20 
NDGT-NJGT^l 

IF  (NOGT.LT.il)  GO  TO  21 
C  INSURE  THAT  NO  PDINT  IS  EXACTLY  ON  A  CONTOUR 

20  30  32  I-UIMAX 
30  32  J-L,JrtAX 

32  IF  (ABSI  AMCIDIFI  I  ,J)  ,CONI  NT)  ).LT.OEL)  F  I  I ,  J )  -  1, 0  00001*F  I  I  ,  J )  ♦  2  .  *  f)E 
START  CONTOJR  PLOTTING 
<0NTJR»3 

16  <QNTJR>< 3NTUR+1 
CON-FMI N^CONI NT*FL)AT (XONTJR-1) 
rfR  ITE  (6,620 )  CON, Fm IN,CJNINT,X3nTUR 

620  *ORMAT( H  ,5X,  CON  ,Fl).9,  F  MI N  ,F10.9»  CONINT  .F10.9,  KON 
1  JR  ,18) 

30  19  IP-1, IJFS 
19  FS(MP)»3 

BEGIN  EDGE  SEARCH 

.PLOT-.F  ALSE. 

JE-0 

17  JE - JE ♦  l 
IRET-1 

92  3  -  F I  I M AX , JE ) -CON 
C-FIIMAX,  JE+D-CON 
IF  (C*0»  GT»0»  )  GO  TO  22 
IE-IMAXI 
NIN-3 

EYE-FLOAT ( I  MAX) 

JAY-Gt  JE  ,0,0 
GO  TO  S3 

22  IF  ( Jc.NE. JMAX1)  G3  TO  17 
IE-0 

23  l  E -  I E ♦  1 
IRET-2 

93  A-FCIE, LI-CON 
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3-F ( IE*1* 11-CON 

IF  (A*O.GT.O.J  CO  TO  24 

NlN-4 

JE-1 

EYE-GI IE  »A,D) 

J  A  Y  -  l  • 

GO  T 3  53 
24  I  RE  T=  3 

41  J -F ( I E  »  J 1 AX  I -CON 
>fl!  E  «■! »  JHAX  )  -CON 
l F<  b^C.GT .3. )GO  TO  26 
N  I  N  -  2 
JE»  JNAX1 
rYE*G( I5«B«C) 

JAY  -FL3ATIJHAX) 

GO  TO  53 

26  I  Ft  IE.NE.  IHAXDGO  TO  23 
C  BEGIN  INTERIOR  SEARCH 

IE-0 

27  I E-IE+1 
-PLOT-.  HUE. 

IF(IE.E3.1)LPL0T-.=A_SE. 

JE-0 

39  JE-JE+1 
IRET-4 

40  A-  F 1 1 E  *  J  E  )  -C  ON 
3-F(IE*JE*ll-C0N 

IF ( A«B.GT .3. ICO  TO  30 
NIN-1 

EYE-FLOAT C IE  ) 

J  A Y -G ( J E  t A »B ) 

GO  TO  53 

30  IF( JE.NE. JMAX1IG0  TO  39 
I F ( IE.NE. I  MAXI ) GO  TO  27 

IF (KONTJR.NE.NCONS. AND. < 3  EG. LT . 6 3  I  GO  TO  16 
C  PURGE  INITI4-  POINTS  BJFFER 

C  SEARXH  STORE!  IN  I T I  ALP  3 1  NTS  3UFFER  FOR  ONK  CLOSEST  TO  PRESENT  PEN  POSI 
<BEGNX»<3E  G— 1 
IRET-5 

<BMX02-<3EGHX/2*1 

<-0 

52  <-X*l 

IFIK.LT. <BMX02)G0  TO  82 
C  RETURN  IF  A_-  CONTOURS  ARE  P.OTTED 
I  FIKONT JR.GE.NCONSIRETURN 
<  B E  G- 1 
GO  TO  15 

82  IRSQNN-9999999 

30  55  X8E  G-l*  KBEGNX 

IF ( I  3  E  G ( (  BEG  I • E  0. 0 ) GO  TO  56 

IRSU-I I-I BEG  I KBEG) l**2M  J-JBEGI xaEG))**2 

IF(IRSO.NE.O) GO  TO  53 

IF(C0N.NE.C0NSVIKBEG))G3  TO  53 

I  B E G( K3E  G ) -0 

GO  TO  55 

53  IF (IRSa.GE.IRSONN)GO  TO  56 
I RSONN-I RS3 

<BEGMN-t  BEG 

56  G ON T I N JE 

C  TRACE  AND  P_3T  CLOSEST  STARTING  CONTOUR 

IFIK6EGNN.LE.0.0R.<BEGHN.GT.103)G0  TO  4530 
IE-IBEGI  <BEG.NN) 

JE- J3EGC <  BEGIN ) 

CON-CQNSYIKBEGMN) 

N IN-NINSY IKBEGMNJ 
IBEGtKBEGMNI -0 
30  57  N>-1«IDFS 

57  =SlHP)-3 

IF (NIN..T .1.3R.NIN.GT.4) GO  TO  4533 
GO  TO  (43»41»42»43>  *NIN 

58  I F  < J.EQ.3) J-i 
I F (  I.E0.3)  1-1 
IF(I.EO.IMAX) I-IHAK1 
IFtJ.E'J.  JHAX)  J-JMAX1 
GO  TO  52 
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nt  >00000 


CURVE  -0-L0W  3  E  G  I  N  ROUTI ME 

C  IF  HERE  IS  (OOM  ,  SAVE  THE  INITIAL  POINT 
50  IF(KBEG. ST.100JLPL3T-.TRJE. 

IFlLPLOTIGO  TO  59 
EONS  VI K3  EC  > -CON 
18EG(K3ES)»IE 
JBEG(KdES) »JE 
HINSVIOEGI-MIN 
<BEG-KBE  S*1 

C  [FCKBEG.GT.IOOJGO  TO  550) 

59  IBIT-IE* I  MAX* ( JE-1 j-1 
IW0R0-13I T / 3 1  ♦  1 

iai t-i ai r -31* i word  *32 

IFl  AN3(  TASK!  IBIT)  .FSCliORD))  .NE.OIGO  TO  (  22»25»26,30)»1RET 
<L I NG  -  .FALSE. 

IF  (  AND(  N  A  SK  (  I  B  I  T)  *  -  S  H$K  (  IHQRO)  )  •  NE  •  0)  KLIMS  -.TRUE. 

I  -IE 
J  -  JE 
C 

E KEY -EYE-1. 

EKAY- J AY -l . 

EKE Y«CSA_El*EK£  Y 
EKAY-CSA.E J*EKAY 
IF(NONO._T.O)GO  TO  1000 
IF(KLIMS)  GO  TO  11)0 

IF  (LPLDDCA.L  NUM  3  E  R  (  E  K  E  Y ,  E  K  A  Y  ,  S  I  Z  E  ,  CON  ,  T  ME  T  A  ,  NDGT) 

C  I  F  (LPL3T  )  C  AL  _  NUNaER{(EYE-l.)*CSALEI,(  J  A  Y-L  •  I  *C  SALE  J,  .  105  ♦  CON,  THET 

C  1 A , MOGT ) 

1000  CONTINUE 

C  I F ( LPLOT ) CALL  PLOT ( ( E YE -1 . ) *CS AL E I , C J AY-1.  ) *CS ALE J , 3 ) 

I F ( LPL3T 1 C  ALL  PLOT ( EKE Y , E K AY , 3 ) 

C 

1100  CONTINUE 

<L I NG  -  .TRUE. 

EYEZRO-EYE 
JAYZRO-J A Y 
<LOG=.F A_SE. 

I  PEN-2 

MALT-. FA. SE. 

CURVE  -ALL3VIMS  ROJTINE 

60  A»F(I,J)-C0N 
3  «F ( I  ,J*1)-C3N 
>Fll*li  J+LI-CON 
)-F ( I *1, J  I-C3N 
IBIT-I  ♦  I 1AK*  (  J-D-l 
I H3R3-I BI T / 3 l ♦ 1 
IBIT-IBIT -31*1 H0R0*32 
-S(IRDRO) -  0R(FS(Ii40R0)*1ASK(Idim 
JPP-1 

IF ( A*C.GE .3. ) JPP-J»P*l 
IF(B*O.SE.O. ) JPP-JPP  *2 
I F( JPP.E ).5)G0  TO  55 
73  NOJT-NPT (NIN.JPP ) 

SO  T0172, 75,7b,7B),N0UT 

55  IF(A*3)55,56,57 

56  JPP-2 
SO  TO  73 

5Z  IM1-I-1 
JH1-J-1 
I P2-I *2 
JP2- J*2 

WRITE (6,55  >  I,  J,NlN,CON,<(F(IZ,JZ),IZ-INl,I?2),JZ-JMi,JP2> 

55  -0RNAT(23H1ERRUR  IN  CONTJR  FOR  1 -, 1 2 ( 3H> J- *  I  2 » 5H *N IN-, 1 1 ,1 2H, AND 
1C0NTJR-,  E  1 B  .  9  /  /  I  5E  2  0 . 8  )  ) 

57  SO  TO  (22, 25, 26, 30, 58) , I  RET 
72  EYE -FLOAT (I) 

J  A  Y  -  G  (  J  ,  A  ,  B  ) 

I F (  I.EO.LIMAwT-.TRJE. 

I  - 1  -L 
SO  TO  30 
75  EYE-GC1 , 3 ,C) 

JAY-FLOAT ( J ♦ L ) 

IFtJ.EU.J MAXI) HALT -.TRUE, 

J  -  J  ♦  L 
SO  TO  83 
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lUI  INC  lUMJl 


C  00 

c 

00 


76  EYE-FLOAT!!*!) 

J  A  Y  -  G  !  J,  3,0 

IF ( I .EQ. I H AX  1 1  HALT -.TRUE. 

I  -  I  ♦  1 
GO  TO  OD 
76  E  Y  E  *  G  ( I , A , 0 ) 

JAY-FLOATiJ) 

I  F ! J.C  3. L) HALT*. TRUE. 

J  -  J-l 

IF  (LPLOT  )CALL  PL  OT  (  C  EY  E  - 1 .  )  *  CS  Al  E  I  ,  C  J  A  Y-l.  )  *  CS  ALE  J  *  I  PEN  I 

CONTINUE 
<LING  *  .HUE. 

IF ! ANO! MASK! I BIT)»=SMSKi l WORD) ) .NE.O)  KLING-.  FALSE. 

THING  -  »  F  A  _  S  E  . 

IF< IPEN.E3.3)  THING  -  .TRUE. 

IPEN  -  3 

IFIKLING)  IPEN  -  2 
IF(THING)  IPEN  -  3 
EKEY -EYE-1* 

-KAY- JAY-1. 

EKEY  «CSA_EI*EKE Y 
EKAY-CSA_EJ*EKAY 

I  F  (  LPL3T  )  CALL  PLOT!  EKEY,  EKAY.I  PE  N»  „ 

IFIKLOG. AND.EYE.EQ.EYEZR3.4ND. JAY.EO. JA YZR 0 ) HAL T-. TRUE . 

IFCHALTJGO  T  3  90 
I  PEN-1 

NlN-NPT!  NOUT  *  1 ) 

<LO&«.TR JE. 

GO  TO  63 

CURVE  -OLLOW  END 

90  IF I  N  ON  3 • _  T , 0 1 G 0  TO  1001 

IF ( IPEN. EQ.3)  GO  T3  1001  „  _  , 

IF (LPLOT )CAL_  NUH3ER(EKEY,EKAY,SIZE,C0N,THETA,NDGT) 

C  IF {LPLOT ) CALL  NUMBER! !EYE-L.)*CSALtI,! JAY-1. ) ♦CSALE  J*.1Q6»CDM*THET 

C  1A,NDGTI 
1001  CONTINUE 

45  00  NRITE(5^N531)NIN»i<3EG*KS:GMX*K,IEfJE«KOlNTUR,CON*KBEGMN 
<*501  -  ORM  A  T  16  HNIN-,  1 15/6HKBEG-  ,  I15/7HKBEGMX-,  Ili/ZHR*,  IL5/3HIE**I15/ 
*3HJE-,I15/7H<ONTUR-I15/'HC0N-,E23.S/  7HKBF.  GMN  -  ,  1 15// ) 

<BE  G“1 
SO  TO  16 

7001  ^0RMAT11H1/5X,H  ERROR- NE GAT  I VE  NO.  OF  CONTO JRS"/ 1H1 ) 

RE  TURN 
END 


m , 


D.  E/EPM  CONTOUR  PLOTTING  PROGRAM 

This  program  produces  a  contour  plot  of  E/EPM.  The  boundaries  are 
distance  in  the  X  and  Y  direction.  The  region  corresponds  to  the  grid 
the  wave  model  uses. The  box  that  is  drawn  around  the  contour  should  reflect: 
the  boundaries  of  the  section  of  the  ocean  that  the  model  is  running  in. 

The  program  starts  out  by  reading  in  preliminary  information  about 
grid  size,  CONTUN  values,  etc.  READS  is  then  called  to  load  the  buffer 
with  grid  point  data.  Next,  a  pair  of  arrays  that  CONTUN  needs  are  zeroed 
out.  F  is  then  loaded  with  the  correct  values.  Just  prior  to  calling 
CONTUN  the  regron  is  boxed  in  and  the  title  is  placed  on  it.  After  CONTUN 
the  last  plot  buffer  is  dumped  and  then  the  data  that  was  read  in  is  written 
out  for  verification  purposes. 

By  changing  primarily  one  line  of  code  this  program  can  be  altered  so 
it  displays  SIGNIFICANT  WAVE  HEIGHT.  After  the  E/EPM  code  and  plot  is  a 
altered  listing  and  example  plot. 
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INPUT  DATA  LIST  FOR  E/EPM  CONTOUR  PLOTTING  PROGRAM 
FORMAT  VARIABLE  DESCRIPTION 

I10,7A10  NCHAR, TITLE  number  of  characters  in  title, title  of  plot 

110  NB  number  of  words  to  be  read  in  at  a  time 

110  NF  number  of  frequencies 

2110  IGRDX,IGRDY  number  of  grid  points  in  x  direction,  in  y  direction 

2110  NPTSK,I0FSET  number  of  grid  point  values  to  skip,  number  of 

values  prior  to  first  grid  point  value 
I10,3F10.5  M0DE,AR  mode  flag,  limit  values 

2F10.5  SI.SJ  number.'of  points  per  inch;  in  x  direction,  y  direction 

I 10, F 10. 5  N0N0, THETA  label  flag,  if  NONO-O  then  no  labels  else  labels 

are  present  on  each  contour;  angle  of  rotation 
in  degrees  of  label 

I10.F10.5  NDCT,SIZE  number  of  decimal  places  to  appear  in  labels, 

size  in  inches  of  label(vertical  height  of  char) 


VARIABLE  LIST  FDR  E/KPM  CONTOUR  PLOTTING  PROGRAM 


EPM/60522.0/  -  value  used  to  normalize  energy 
NCHAR  -  number  of  characters  in  title 
TITLE  -  title  of  plot 

NB  -  number  of  words  to  be  read  in,  size  of  buffer 
NF  -  number  of  frequencies 

IGRDX  -  number  of  grid  points  in  x  direction 
IC.RDY  -  number  of  grid  points  in  Y  direction 
NPTSK  -  number  of  grid  point  values  to  skip 

IOFSET  -  number  of  words  of  information  prior  to  the  first  grid  point  value 
MODE  -  mode  flag  for  CONTUN  (see  CONTUN  for  more  info) 

AR  -  limits  for  CONTUN 

SI  -  number  of  points  to  plotted  per  inch  in  X  direction 

SJ  -  number  of  points  to  be  plotted  per  inch  in  the  Y  direction 

NONO  -  label  flag;  if  NONQ=0  then  contours  are  not  labeled  else  contours 
are  labeled,  , 

THETA  -  angle  of  rotation  in  degrees  of  label 

NDGT  -  number  of  digits  to  left  of  decimal  point  to  be  put  on  each  label 
SIZE  -  size  in  inches  of  label  (vertical  height  of  numbers) 

BUFFER  -  input  buffer,  used  to  hold  SREC  values  before  they  are  put  in  F 

FS  -  mask  array  for  CONTUN,  must  be  zeroed  out 

FSMSK  -  cask  array  for  CONTUN ,  must  be  zeroed  out 

IND  -  used  as  index  into  BUFFER 

J  -  do  loop  index 

I  -  do  loop  index 

F  -  array  used  by  CONTUN  for  plotting  information,  loaded  with  altered 
values  from  BUFFER 
XMAX  -  length  of  X  axis  in  inches 
YMAX  -  length  of  Y  axis  in  inches 
XINDT  -  x  coordinate  of  new  origin 
Y1NDT  -  Y  coordinate  of  new  origin 
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READS-  this  subroutine  reads  an  SREC 
PARAMETERS - 

LUN  -  logical  unit  number,  device  number  of  tape  with  SREC 
BUFFER  -  input  buffer  that  is  to  receive  the  SREC  data 
NB  -  number  of  words  to  be  read  in 
NF  -  number  of  frequencies 

LOCAL  VAR1ABLES- 

I  -  do  loop  index  , 

DUM  -  temp  location  used  to  read  intp  while  skipping  over  records 

»  -  - 

4  ■ 

TEXT- 

» 

This  subroutine  spaces  the  tape  forward  to  the  SREC  and  then  loads 
it  into  BUFFER.  The  number  of  words  read  in  depends  on  NB, 
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program  epm 


PROGRAM  EPM(  1 N PU T, 0 UTP UT »  TAPE  5- INPUT  ,  TAPE  6=*0UT  PUT  ,TAPE  1  =  1 ,  TAPE  7  I 
C 

C  AR  -  INTERVAL  VALUES  FOR  /COSTUN/ 

C  F  -  INPUT  ARRAY  F  Oft  /CONTUN/ 

C  FREO  -  ARRAY  OF  FREQUENCIES 
C  FS  -  MASK  ARRAY 
C  F  SMS  <  -  MASK  ARRAY  FUR  CONTUN 

C  I  GROK  -  NUMBER  OF  GP.IO  POINTS  IN  X  DIRECTION 
C  IGROY  -  NUMBER  UF  GRID  POINTS  IN  Y  DIRECTION 
C  MODE  -  SPECIFIES  MODE  FOR  /CONTUfl/ 

C  NDCT  -  NUMBER  OF  DIGITS  IN  CONTOUR  LABEL 
C  NF  -  NIJMBFP.  OF  FREQUENCIES 

C  MONO  -  FLAG  TO  TELL  /CONTUN/  WHETHER  Ok  NOT  TO  LABEL  CONTOURS 
C  NPTSK  -  NUMB  F  R  OF  GRID  POINTS  TO  SKIP 
C  SI  -  NUMBER  OF  POINTS  PER  INCH  IN  X  DIRECTION 
C  SJ  -  NUMBER  OF  POINTS  PER  INCH  In  Y  DIRECTION 
C  SUE  -  HEIGHT  OF  CONTOJK  LABELS  AS  PART  OF  AN  INCH 
C  THETA  -  ANGLE  THAT  CONTOUR  LABELS  ARE  ROTATED 
REAL.  F<20,  20)  ,  BUFFER!  1511  ) 

REAL  AR(3>,  SI  ,SJ,  THETA,  SIZE 

REAL  FSMSK(530)  ,  XM AX , YMA X , X  I NDT , Y I  NOT 

INTEGER  NB,NF  ,  IGROX  ,  IGROY,  I  OFSF.  T  ,  NPTSK,  MODE  ,f  S  (  IB)  ,  TITLE  17) 

DATA  EPM/ 6 0522,0/ 

C  READ  IN  LENGTH  OF  TITLE  AND  TITLE  OF  GRAPH 
READ (5, TOO 0)  NCHAft , ( T I TLE ( I) , I =1 , 7, X ) 

C  GET  SIZE  OF  BUFFER 

READ! 5 ,1010)  NB 
C  GET  NUMBER  OF  FRUENCIES 

RE  AD (5, 1010)  NF 

C  GET  X  AND  Y  DIMENSIONS  OF  GRID 

R  E  AO (5,1010)  IGRDX,IGRDY 

C  GET  NUMBER  OF  GRID  POINTS  TO  SKIP  AND  IOFSET 

RE  AO (5,1010)  NPTSK, IOFSET 
C  GET  MODE  AND  AR  VALUES 

R  E  AO (5,1020)  M0DE,AR(1),ARC2),ARC3) 

C  POINTS  PER  INCH 

REA0(5»1030)  S I  ,  S  J 

C  GET  LABELING  FLAG  AND  ANGLE  OF  ROTATION  FOR  LABELS 
REAO(5,102C)  NONO, THETA 
C  GET  NUMBER  OF  DIGITS  AND  SIZE  OF  LABELS 

READ(5,1020)  NDGT.SIZE 
1000  FORMATCI 1 0 » 7 A  1 0 ) 

1010  FOP.HAT(BIIO) 

1020  FORMAT! I  10, 7F 10,0) 

1030  ► OR  MAT ( B F 1 0 , 3 ) 

C  _  OA  0  BUFFER 

CALL  RLADSI1, BUFFER, N6,NF ) 

30  9B  1-1,18,1 
FSU  ) 

FSMSKi  i  >  =  r>.n 

98  CONTI  HUE 

30  99  1=19,530,1 
F  SMS  K ( I )-0.0 

99  CONTINUE 

C  ADJUST  BUFFER  INUEX 

IND  -  IOFSET  ♦  NPTSK  ♦  1 
C  LOAD  F 

DO  10  J=L, IGROY, i 

DO  ID  I =1 » I GRDX , 1 
c (I »J)=BUFFER ( IND) /EPM 
IND  -  IND  ♦  1 

10  CONTINUE 

C  GET  DIMENSIONS  OF  PLOT 

X  MA  X -IGRDX/SI 
YHAX-IGRDY/SJ 

C  INITIALIZE  THE  PLOTTER 

CALL  PL0TS(0,0,7) 

C  MOVE  PEN  AWAY  FROM  EDGE  OF  PAPER 

CALL  PLOT (0,5, 0.5, -3) 

C  DRAW  BOX  AROUND  PLOT 

CALL  PLOT ( 0,0 ,YMAX, 2 ) 

CALL  PLOT (XMAX,YMAX,2 ) 

CALL  PLOT (XMAX,0.0, 2) 

CALL  PLOT ( 0,0, 0.0,2 ) 

C  SET  UP  NEW  ORIGIN 
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XIN0T=*l.D/(2.0*SI) 

YINDT=1.D/(2.0*SJ) 

CALL  PLOT ( X I  NOT  , Y I  SOT  »~3 ) 

C  PUT  TITLE  ON  GRAPH 

CALL  SYMBOL! 0 . 0 , YMA X , 0 . 2 3  ,  T  I  TLE ,0.0*NCHAR) 

C  DO  CONTOUR  PLOT  c I H ALLY  ))  J  ) ) ) 

CALL  CONTUN(F  , IGROX  ,  I  GP.  D  Y  ,  F  S ,  AR  ,  MODE ,  S  l  ,  SJ,  TITET  A*  MONO*  SIZE* 
♦  F  SMSK ,  NDGT ) 

CALL  PLOT (0,0,909) 

C  DUMP  DATA 

WRITE  (h, 220  THETA, NDGT, SIZE 

2  20  F  ORM  AT  (  7H  THETA*,F  10 ,6 , 5<  ,  5HNDGT  - ,  I  A  ,  5X  ,  SMS  I  Z  F.  »  ,  F10. 6 ) 

WRITE (6,2  30)  XM AX , Y  M AX 

230  F  OR  MAT  ( 1  3H  SIZE  OF  BOX  .*  ,  F 10*  6, 3H  X  ,F10,6) 

HR  I TE ( 6  »  300 )  NB 

300  r ORMAT (AH  NB-,IA) 

WR I TE ( 6 , 3  01 )  NF 

301  F0RHATIA4  NF  *  ,  1  A  ) 

WRITE (6,302)  IGRDX, IGRDY 

302  r ORMAT (94  GRID  IS  ,IA,3H  X  ,IA> 

STOP 

END 
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•  IMROUTIME  reads 


SUBROUTINE  READS  (LUN,  0UFFEP,  NB  *  NF  ) 

SURF. OUT  I NF  TO  READ  SUMMARY  RECORD  -  - 

SUMS  OVER  FREQUENCY  AND  DIRECTION* 

REAL  R'JFCFR(N3) 

C 

REWIND  LUN 
C  SKIP  TO  SREC. 

DO  10  I  =  1 »  NF 

BUFFER  IN  (LUN*  1 )  (DUMiDJM) 

C 

IF  (UNIT  (LUN))  10,  50*  50 

C 

10  CONTINUE 
C  *EAD  SRFC* 

BUFFER  IN  ( L  U  N  ,  1 )  (  BUF  F  E  1  (  1 )  ♦  BU  FF  F.  R  (  N  B )  ) 

C 

IF  (UNIT  (LUN))  20*  50*  50 
C 

20  CONTINUE 

REWIND  LUN 
C 

RETURN 

C 

50  WRITE  (6,1000)  LUN 

1000  FORMAT  (32H0*  *  *  ERROR  OR  EOF  READING  UNIT,I3*6H  «■  *  * ) 
C 

STOP 

c 

END 
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non  nonnnn  r>  n  nnnnnnnnnnnnnnnronnr.nnfiftnrsnnn 


SUiRDUTINE  C  D  NT  UN { : ,  I  MAX » JH AX , F $ , A R  ,  HUDE , S 3 AL 1 1  ,  SC AL E J , THE T A , NONU , 
1SIZE .FSHSR.NDGTI 


TRACES  CDNTDURS  THROUGH  ARRAY  F(iMAX.JMAX)  AND  PLOTS  THEM 

HHITH  SCA.EI .SCALE J  "DINTS  PR.  CM.  THE  CONTOURS  ARE 
LABELED  AT  AN  A  N  G  _  E  THETA  WITH  THE  X-AXES  PROVIDED 
NDN3  -AN  INTEGER  .GE.O.  IF  NONO.LT.fi  THE  CONTOURS  ARE 
NOT  LABELED.  SITE  IS  THE  SIZE  OF  THE  LABEL. 

MODE  -  l  FAMILY  0-  CONTOURS  IS  TRACED  WITH  I NTE RV AL >AR  (1) . 

MODE  =■  2  FAMILY  OF  APPROXIMATELY  ARID  CONTOURS  IS  TRACED  WITH 
A  REASONABLY  COMPUTED  CONTOUR  INTERVAL. 

MODE  -  3  A  SINGLE  CONTOUR  WITH  VALUE  ARID  IS  TRACED. 

MODE  -  A  AR(1)-INTERVA_.ARI2J-MIN,ARC3)-MAX 

MODE  -  3  ARID-NR  OF  CONTOURS.  AR  (  2  I  *F  MAX  -  M  )  N ,  AR  C  3  >  *FM  AX"MAX 

IMAX  COINCIDES  WITH  THE  PAPER  X-AXES.  DIHENS  ION  OF  ARRAY  IN  X  DIR 
JMAX  COINCIDES  WITH  THE  PAPER  Y-AXES.  DIMENSION  OF  ARRAY  IN  Y  DIR 

FS  AN  INTEGER  ARRAYS  MUST  BE  GIVEN  DIMENSIONS  1a  I  MAX* JMAX/ 31  IN 
CALLING  PROGRAM. 

NDGT-SIGNIFICANCE.IF  NEC.  IS  COMPJTED. 

2  S  COMPLEMENT  ARITMETIC 

EXTERNAL  FONT  ION  LAND  I,JS  IS  THE  B  DOLE  AN  I  .  E .  I.OGI  CALS  AND  OF  T  MO 
FUlLHORD  INTEGERS. 

EXTERNAL  FJNCTION  LOR  I.JS  I>  THE  BOOLEAN  DR  OF  TWO  FULLW0R0  INTEGERS. 

SPECIFICATION  STATEMENTS. 

CHANGE  KDS  5.1.73 
INTEGER  FS(1> 

REAL  JAY. JAYZRO  ,FI I  MAX, JMAX) 

DIMENSION  MASK (311 ,NPT14,3),AR(3),AC(5).ALG(5I 
DIME  NS  I  DM  I  8  E  G ( IDO  I  . J  BEG ( IDO > » C 0 NS  V ( 100 > , N I  NS  V C 100 > 

INTEGER  =SMS<(1) 

-OGJCAL  HAlT.LPLDT.KLOG 
-OGICAL  RUNG, THING 

DATA  NPr/3*A«l.2,2,l,A.3.A.3,2,l/  »  IFLAG/D/ 

DATA  AC/ L.25.2. *2. 5.5. .ID. / 

DATA  ALG/.D97..3..3 9tt *.7.1.0/ 

FUNCTION  DEFINITION. 

G(I .A.3I-FL0ATI I >  —  A / I  8— A ) 

SET  PLOTTING  PARAMETERS. 

IDFS=JMA<AIHAX 
IDFS-IOFS/31+1 
ARG2-AR { L  ) 

<  B  E  G  =*  1 

<  BE  GMX  »  D 

CSALEI-l. /SCALE  I 
CSALEJ-1. /SCALE J 
IF  IIOvTT.NE.il  GO  TO  60A 
DO  6D2  I  - 1. I  MAX 

WRITE  16,603)  (F  (I ♦ J I .J-l.JMAX) 

602  CONTINUE 

603  FORMATIH  ,2lFt.O) 

60A  CONTINUE 

IF  (IFLAG.E0.5)  GO  TO  A 
DO  3  1-1,31 
3  MASK ( I  1-2**131—1 ) 

SET  JP  LOOP  CONTROLLING  SELECTION  OF  C 3NT0URS 
IFLAG-5 

A  I MAX1-I MAX-1 
JMAX1- JMAX-1 
IF  ( MODE , NE. 3 )  GO  TO  ID 
•MIN-ARG2 
C0N1NT-ARG2 
NCONS-l 
GO  TO  13 
10  FMAX-FI 1*11 
-HIN-FMAX 
DO  12  I-I.IMAX 
DO  12  J-l.JMAX 
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UUTISf:  CONTUN 


:HIN-AHH1(F11N,FII,J)) 

12  =  MAX-AHAXKF.HAX  ,F  (  I  ,  J  I ) 

IF  IM03E.NE.5)  GO  TO  123 
\RI3)»AR{  3X--MAX 
AR(2)-AR(2)*FMAX 

ARG2- ( AR I  3  J-AR(  2)  )  /  A  ( 1 ) 

120  :0NMMJC2 

IF  1  rlUDE  *  HE  .  2  >  GO  TO  13 
C  IF  N3DE  *2  SELECT  A  CONTOUR  INTERVAL 
ALGCNT  »  A  _  OG 1 J (  {  F  MA  X- ■■ t\ I  N  )  /  ARG2  ) 

N-ALSCNT 

ALGCNT-A1UD< ALGCNT,1  ) 

IF  ialgcnt.ge.o.)  30  TO  18 

N-N-L 

ALGC NT  -l , ♦  AL  GCNT 

18  B-ALGCNT 
A  *  1  • 

30  19  I*L,5 
C-ABSIA.GCNT-ALGU  )  ) 

IF  (C.GE.3)  GO  TU  19 
3-C 

A-ACt  I > 

19  CONTINUE 
C0NINT-A»13.**N 

C  DETERMINE  NJMBER  OF  CONTOURS  AND  MINIMUM  VALUE 

13  IF  (FMIN.GT.3.)  FMlN-FMI N+CONINT 
=  M1N-C0NI.NT*AINT  IF  N IN/ CON  I  NT  ) 

IF  (FMAX.LT. 3.)  F H AX - FMA X-CON I M T 
FMAX-CONINT*AlNT(FNAX/CQNINT) 

IF  IH03E.LT.4)  GO  TO  11 
=  M1N-AMA<1IF,HN,AR  12)) 
r MAX-AMI  Nil F MAX ,AR l 3i 5 
11  SCONS-IF  N  A  X— r  M I  N5/C0mIMT  *•!. 


SCONS-NI N0< NC0NS.4D ) 

IFCNCONS.LE. 3)  GO  TO  703) 

C  DETERMINE  NJNBEk  OF  DIGITS  IN  LABEL 

15  3EL-1. E-A*CONINT 
IF(N)GT.GE.O)  GO  T3  20 
NDGT-0 

21  IF  (ABS( AMOO< C0NlNT*10.*»NDGT,l. ) ).LT.DEL)  GO  TO  20 
NDGT=*N3GT*1 

IF  (NOGT.LT.il)  GO  TO  21 
C  INSURE  MAT  NO  POINT  IS  EXACTLY  DN  A  CONTOUR 
20  30  32  I-UIMAX 
30  32  J«1,JMAX 

32  IF  (A3S(  A  M  i)  0  <  F  (  I,J)  ,CONI  NT)  il  .  L  T  »  3  E  L  )  F  (  I  ,  J  )  - 1. 0  OOOD1*F  I  I  ,  J)  *  2.  *DE 
C  START  CDNTOJR  PLOTTING 
<ONT JR=  3 

16  <0NTJR-<3NTUR+1 

CON-FMI N*CONI NT  *FL)AT (<0NTUR-1) 

C  rfR  ITE  (6,620)  CON,  F  ri  I  N  ,  C  ON  I  NT,  X  3  NT  UR 

C  620  : ORM  AT (IN  ,5X,  CON  ,Fl).4,  F  MI N  ,F10.4,  CONINT  ,F10.4*  KOM 
C  1  JR  ,18) 

30  14  N?  « 1» I 3F  S 
14  F S I MP ) -3 

r 

C  BEGIN  EDGE  SEARCH 
C 

_PLOT-,F AL5E. 

JE-0 

17  J E - JE ♦ 1 
IRET-1 

42  3  -F  ( IMAX»JE) -CON 
C-F  UMAX,  J E  ♦!  ) -CON 

IF  (C*D.ST.O.)  GO  TO  22 

IE-  INAXL 

NIN-3 

EYE-FLOAT ( IMAX) 

JAY-G(JE»D»C) 

GO  TO  53 

22  IF  ( JE.NE. JMAX1)  GD  TO  17 
IE-0 

23  l E -  I E ♦ 1 
IRET-2 

43  A-F(I£,l)-CON 
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.IUTIMl  CONTUN 


3-F  C I E ♦ 1 » 1 ) -CON  1 

I F  C  A*D. GT.O,  )  GO  TO  24 
S  I  S  =  4 
J  E  “  1 

E YE-GC  IE  »  A  »  D  ) 

JAY-1. 

GO  TO  53 
24  I  RE  T  =  3 

41  3-FCIE,J1AX)-CON 
:-f  c i e ♦ i , jmax  > -cru: 

I F ( b<-C.Gf .D. ) GO  TO  26 
SIN-2 
JE- JNAX1 
EYE=*G(IE»B,C) 

JAY  -F-DATC JMAX  ) 

GO  TO  53 

26  IFC IE.SE. I  MAX  1 ) GO  TO  23 
C  BEGIN  INTERIOR  SEARCH 

IE-0 

27  IE-IE+1 
-PLOT-.  RUE. 

IF ( IE.E3. 1JLPLOT  *.=A-SE. 

JE-0 

39  J E - JE >1 
IRET-4 

40  A-FC IE , JE) -CON 
3-F  C  IE  ,  JE  ♦D-CON 

IF ( A*B.CT.3. )G0  TO  30 
SIN-1 

EYE-FLOAT! IE ) 

JAY-GC JE  » A,B) 

GO  TO  53 

30  IFIJE.SE. JMAX 1 ) CO  TO  39 
IFt IE.SE. IMAX1JG0  TO  27 

IFCKONTJR.SE.NCGNS. AND. <3EG.LT. 63)30  ID  16 
C  PURGE  I N I T I  A  _  POINTS  BUFFER 

C  SEARXH  STORE  3  IN  I T l ALP  3 1 S T S  3UFFER  FDR  ONR  CLOSEST  TO  PRESENT  PEN  POS 
<BE  GMX»<  3EG-1 
IRET-5 

<BMX02«<3EGHX/2+l 

<-0 

52  <-<♦! 

IFCK.LT, <BMXQ2)G0  TO  82 
C  RETURN  IF  A__  CONTOURS  ARE  P.OTTED 
I FtKONT JR.GE.NCONS) RETURN 
<  BE  G-l 
GO  TO  15 

82  I RSQHN-9999939 

30  55  KBEG'l.KBEGfiX 

IFC I 3EG( <BEG) .EQ.OJGD  T3  5b 

I  RSO-C  I -I  BEGC  KB  EG)  >**2*t  J- JBE GC K3EG ) I **2 

IFC IRS3.SE. 01G0  TO  53 

IFCCON.NE.COSSVCKBEGJ )GD  TO  53 

IBEGCK3EGI-0 

GO  TO  55 

53  IF C I RSO. GE . I RSQHN) GO  TO  56 
I RSQMN-I RS3 

<BEGMN-<  3EG 

56  CONTINUE 

C  TRACE  ASD  P_ 3T  CLOSEST  STARTING  CONTOUR 

IFCKBEG1N.LE.0. OR. RBrGMS.GT. 103)30  TO  45D0 
IE-IBEGC  <BEG1N) 

JE- J3EGC <  B  E  G IN  I 
CON-CONS/CKBEGHil) 

SIN-SINS/  CKBEGNI!  : 

IBEGCK3E  GHS) -0 
30  57  N*-1,I0FS 

57  - S  C  MP ) -  3 

IFCNIN._r.l,3R»i'.fN.GT.4)G0  TO  4533 
GO  TO  (  43,41.42 .43) »NIN 

58  IF! J.E3.3) J-l 
IFC I.EO. 3)1-1 

IFC  I. GO.  I  MAX)  I  -  )  l;AX  1 
I  F  (  J  »E  3.  JHAX)  J-  111  A  <  1 
GO  TO  52 
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routine  contjs. 


CURVE  =0lL3H  3EGIN  ROUT  I SE 

C  IF  T3ERE  IS  ROOM  ,  SAVE  THE  INITIAL  POINT 
50  IFCKBEG.  ST.10OH  PL3T-.TRJE. 
lFCLPLODGO  TO  59 
:ONSV( K3EGI-C0N 
IBEGIK3ESI-IE 
JBEGIKBEG) - JE 
SINSV(<3EG)-NIK 
<BEG-K3ES*1 

C  I FCKBEG.GT. IDO’ CO  TO  450) 

59  IBIT-IE*IMAX»{ JF-LI-1 
I  WORD-131  TY3l*L 
131  T-I8I  r-31»Il,0RD»32 

I  F  (  4N3C  -1ASKI  IB  IT)  ,FS<  I  W3RD)  )  .ME.  0)  GO  TO  12 
<L  I NG  -  .FALSE. 

IF  I  AND*  MASK  U  BI  :  5  ,  -SHSK  1 1  WORD) )  .ME.  0)  KLIN  3 

I  -IE 

J-JE 


(22»24.26»30).1RLT 


-.TRUE. 


1000 


c 

1100 


:urve 

60 


E  KEY-EYE -1* 

EKAY-JAY-1. 

EKEY-CS4_EI*EKEY 
EKAY-CSA_E J»EKAY 
IF(N0N0._T»0)GC!  TO  1000 
l F ( KL I NG )  GO  TO  1130 

IF  (LPL3T  )  C  A_L  HUM3ER<EKEY,EKAY,SIZE,C0,.!,THETA,NDGT) 

IFILPLDDCAL.  NU.tBER  C  C E Y E-l. ) *CS ALE  I , (  JAY-L.  )  *C SALE J ,. 105 ♦ CON, TMF1 
1A.N0GT) 

CONTINUE 

IFCLPLOTICALL  PLOT ( ( E YE -l . ) *CS AL E I » < JA Y  -I. I *CSALE J . 3 ) 

IF (LPLOT) CALl  PLOT! EKEY.EKAY.3J 

CONTINUE 
<L I NG  -  .TRUE. 

EYEZRO-E  YE 
JAYZRO-JAY 
<  L  OG - • F  A  _  S E. 

I  PEN-2 

NALT-.FA.SE. 

:ALL3VING  ROJTINE 
A-F ( I . J) -CON 
3-F ( I , J*L)-C3N 
C-F( 1*1. J*l)-CON 
3-F  C I ♦  !, J  I-CDN 
IBIT-WI1AXM  J-l)-l 
l WORD-131 T/31+1 
IB1T-IBI  r-31*lH0RJ*-32 
=  SC  I  WORD) -  0R(FS(IW0RD).1ASKCI3IT)) 

JPP-1 

IF(A*C.GE.3. ) JPP-J?P*1 
IF  CB^D.GE . 3. ) JPP-JP?  *2 
IFI JPP.E3.4IG0  TO  44 
I  NQJT-NPT (NIN.JPP) 

GO  TD172.74,7b.78),N0UT 
>  IF(A*3)45.46,47 
i  JPP-2 
GO  TO  73 
'  Itll-1-1 
JHl-J-l 
I  P2=*I  *2 
JP2- J«-2 

WRITEC6.4S)  I,J.NIN.C0N,CCFCIZ»JZ).IZ-IN1,I?2) , JZ-JH1, JP2) 

.  :0RMAT(23H1ERR0R  IN  CONTJR  FOR  I 1 2  C  3H)  J- ,  1 2 , 5H  ,N  IN-,  1 1  » 1 2H  ,  AND 
1  CON TJR- ♦ E 18.9// C4E 2  0.8) ) 

’  GO  TO  (22.24, 26, 30.58), IRET 
EYE-FLOAT ( I ) 

JAY-GC  J, A.B) 

IFC  I.EO.LMA_T’-»TRJE. 

I  - 1  -1 
GO  TO  80 
EYE-GCI.3.C) 

JAY-FLOAT ( JU  ) 

IF(  J.EU.  JMAXDHALT-.TRUE. 

J  -  .1  ♦  I 
GO  TO  83 


I'JTHE  CONTUN 


76  EYE-FL3U(M) 

JAY-GC J,3,C> 

IF ( I. EQ. I  MAXI  I  HALT -.TRUE. 

I  -  I  ♦  I 
GO  TO  80 
78  H Y E ■ G C I , A,0I 
JAY-rLDAT  l  J) 

i  IK  J.CO.  DHALT-.TR  JE. 

‘  J-J-L 

‘  C  80  IF (LPLOT  JCALL  PLOT  I  I E YE - 1 •  ) * CS Al E I ♦ ( JA Y-l. ) * CS ALE J ♦ I  PE N ) 

C 

80  CONTINUE 

<LING  -  .TRUE. 

IF  (ANOI  H  A  S  K  (  I  BIT)»:SrtSK(  IWQRD)  ) .  NE  •  0 )  XL  ING-.  FALSE. 

THING  -  . F  A_  S E  . 

IFIIPEN.E3.3)  THING  -  .TRUE. 

IPEN  -  3 

IF(KLING)  IPEN  -  2 

IF( THING)  IPEN  -  3 

EKEY »EYE-1* 

EKAY- JAY-1. 

EKEY-CSA,EI*EKEY 
EKAY-CS A_EJ*EKAY 

IF (LPL3T ) CALL  PLOTlEXEY*=<AY»IP=N) 

IFIKLOG. \ND. EYE. EU.EYEZR3.AN0. JAY. E0*JAYZR3)H  ALT*1. TRUE* 

IF  l HALT ) G 0  T 3  90 
I  PE  N*1 

NIN-NPT ( NOUT, 1) 

XLQG-.TR JE. 

GO  T 3  S3 

CURVE  -OLLOW  END 

90  I F ( NON  D  » _  T  »  0  ) GO  TO  1001 
IFUPEN.EQ.3)  GO  T3  1001 

IF (LPLOT )  C  AL  _  NUM3 E R ( EKE Y , EK AY , S I Z E *  CON , TH ET A , NDGT ) 

C  IF( LPLOT) CALL  NUMHcRI ( E YE -l. ) *C S AL t I , ( J AY-i. / *C SALE J * . 108 , COM t TH 

C  1A  »NDGT ) 

1001  CONTINUE 

GO  T0(22»24»26»30»58)»IRET 

45  00  NR  I  TE  t  5  ,  ■»  53  1 )  N I  N  , X  3  E  G  ,  KB  E  GMX  ,  K  *  I  E  »  J E ♦  KCNTUR ,  C ON  , KBE  GMN 
A  501  -ORHAT  KNNIN-,  I  L5Y5MK8EG-,  1 15/ 7HXB E GMX- , I15/2HK « , I 1 5/ 3HIE-* I 15/ 
*3HJE-,I 15/7H<ONTUR»I15/ANCON-,E23.8/  7HKBEGMN-, 115//) 

<  8  E  G  - 1 
GO  TO  15 

7000  NR1TE (  5. 7001  ) 

7001  -  0  R  M  A  T  (  H1/5X*"ERR3R  - NEGATIVE  NO.  OF  CONTOURS ”/ 1H1 ) 

RETURN 

END 


PROGRAM  SW 


PROGRAM  S  W  (  1NPUT»DUTPUT  ,TAPE5*INPUT  »TAPE6*QUTPUT»TAPE131,TAP[:7) 

C  AR  -  INTERVAL  VALUES  FOR  /COSTUN/ 

C  F  -  INPUT  ARRAY  FOR  /CON TUN/ 

C  FREQ  -  ARRAY  OF  FREQUENCIES 
C  FS  -  MASK  ARRAY 
C  F  SMS  <  -  MASK  ARRAY  FUR  CONTUN 

C  1 GRD X  -  NUMBER  OF  GRID  POINTS  IN  X  DIRECTION 
C  IGRDY  -  NUMBER  OF  GRID  POINTS  IN  Y  DIRECTION 
C  MODE  -  SPECIFIES  MODE  FOR  /CONTUN/ 

C  NOGT  -  NUMB E  R  OF  DIGITS  IN  CONTOUR  LABEL 
C  NF  -  NUMBER  OF  FREQUENCIES 

C  NONO  -  FLAG  TO  TELL  /CONT UN/  WHETHER  OR  NOT  TO  LABEL  CONTOURS 
C  NPTSK  -  NUMBER  OF  GRID  POINTS  TO  SKIP 
C  SI  -  NUMBER  3F  POINTS  PER  INCH  IN  X  DIRECTION 
C  SJ  -  NUMBER  OF  POINTS  PER  INCH  IN  Y  DIRECTION 
C  SIZE  -  HEIGHT  OF  CONTOUR  LABELS  AS  PART  OF  AN  INCH 
C  THETA  -  ANGLE  THAT  CONTOUR  LABELS  ARE  ROTATED 
REAL  8 JF - ER ( 1511) 

REAL  F 119*25) 

REAL  ARC  3  )  »SI *5J»THETA»SIZE 
REAL  XMAX,YMAX*XINDT»YINDT 
INTEGER  F  SMS  K ( 1 8 ) 

INTEGER  MB,NF, IGRDX, IGRDY* I OFS ET, NPTSK, MODE, FS( 18) ,T ITLE  (  ? ) 

C  READ  IN  LENGTH  OF  TITLE  AND  TITLE  OF  GRAPH 
RE AD (5,1000)  NCHAR, ( TITLE C I ) ,1-1,7, 1) 

WR l TE ( 6, 306)  TITLE 

306  F0RMATC7H  TITLE:, /,1H  ,10A10) 

C  GET  SIZE  OF  BUFFER 

RE AD (5,1010)  NB 
WRITE (6, 300)  NB 

300  F  ORMAT  (AH  NB-,14) 

C  GET  NUMBER  Oc  FRUENCIES 

R  E  AD (5,1310)  NF 
WRITE (6,301)  NF 

301  z ORMAT (AH  NF«,I4) 

C  GET  X  A  SO  Y  DIMENSIONS  OF  GRID 

READ(5,1U10)  IGRDX, IGRDY 
WRITE (6,302)  IGROX, IGRDY 

302  FORMAT ( 9  H  GRID  IS  ,I4,3H  X  ,14) 

C  GET  NUMBER  OF  GRID  POINTS  TO  SKIP  AND  IOFSET 

RE  AD (5, 1010)  NPTSK, IOFSET 
C  GET  MODE  AND  AR  VALUES 

RE  AO (5, 1020)  M0DE,AR(1),AR(2),AR(3) 

WRI TE (6, 305)  MODE , AR 

•  305  =0RHAT(6H  HOOF  *=  ,  1 1 0 , 5X  ,  3  MAR  3  ,  3  !  F  1 0  .  5 , 5X  ) ) 

C  1 0 1  NTS  PER  INCH 

READ(5,1D3Q)  SI,5J 

C  CET  LABELING  FLAG  AND  ANGLE  3F  ROTATION  FOR  LABELS 
R  E AD ( 5 , 1 3  20 )  NONO, THETA 
C  GET  NUMBER  OF  OIGITS  AND  SIZE  OF  LABELS 

RE  AD (5, 1020)  NDGT,SIZE 
WRITE (6, 220)  THETA, NDGT, SIZE 

220  =  ORMAT ( 7H  THE T A - ,F 10, 6 , 5 X , 5HNDGT -, I  4, 5X , 5HS I ZE -, FI 0. 6 ) 

RE AD (5, 1030)  XMAX, Y  MAX 
WRITE(6,230)  XMAX, YMAX 

230  FORMAT ( 13 H  SIZE  OF  BOX : , = 10 . 6, 3H  X  ,F10.6) 

RE  AD (5, 1030)  XINDT ,YINDT 
WRITE (6,304)  XINDT, YINDT 

304  FORMAT ( 7  H  Xi NDT - ,F 10. 5 , 1 3X , 6HY I N DT , F 10 , 5 > 

1000  FORMAT! I10,7AIO) 

1010  c  ORMAT (81 10) 

1020  FORMAT ( I l 0, 7F 10.0) 

1030  F ORMAT ( 8 F 1 0. 0 ) 

C  _ 0 AD  BUFFER 

CALL  READS(1, BUFFER, NB,NF) 

30  98  I  » 1 ,18, l 
F  S  (  I  )  3  0 
F  SMSK ( I ) *0 
98  CONTINUE 
C  ADJUST  BJFFER  INDEX 

IND  «=  IOFSET  ♦  NPTSK  ♦  1 
C  -OAD  F 

30  10  J-l, IGRDY, 1 

nn  i  n  r  » i  .  r  r.pox .  l 
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PROGRAM  Sw 


- ;>  F(I»J)»0.0/»*S0RT(*3JFFER(IND)) 

ISO  -  I  NO  ♦  1 
10  CONTINUE 

C  SET  DIMENSIONS  OF  PLOT 

C  INITIALIZE  THE  PLOTTER 

CALL  PL3TS(0,C,7) 

C  iOVG  PEN  A  H  A  Y  FROM  EDGE  OF  PAPER 

CALL  PL J I (0.5, 0.5. -3) 

C  3  RA  W  UOX  AROJND  PL  3  T 

CALL  PLOT (O.G,YMAX,2) 

CALL  PLOT (XMAX,YMAX,2) 

CALL  PLOT (XHAX, 0.0,2) 

CALL  PLOT ( 0. 0,0.0, 2) 

C  SET  UP  NEW  ORIGIN 

CALL  PLOT ( XI NDT,YI NDT.-3) 

C  PUT  TITLE  ON  GRAPH 

CALL  S  Y  M  3  OL ( 0 . 0  ,  Yr!  A  X  ,  0 . 2  5  ,  T I  TL  E  ,  0 . 0  ,  NCH AR) 

C  30  CONTOJR  PLOT  F I NALLY 1 J 1 1 J J 

CALL  CONTUNI F , I GRD X , I GRD Y , F S , A R , MODE , S I , S J * THET A ,NONO , S 1 l E » 
♦  FSHSK.NDGT) 

CALL  PL3T( 0,0,999) 

STOP 

END 
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E.  PEAK  FREQUENCY  CONTOUR  PLOTTING  PROGRAM 

This  program  produces  a  contour  plot  of  peak  frequency  over  a  rectan¬ 
gular  region.  The  boundaries  as  marked  by  a  box  that  this  program  draws 
around  the  contour  are  lengths.  The  box  is  supposed  to  be  the  gridded 
area  produced  by  the  wave  model.  As  of  now  the  program  will  handle  a 
20  x  20  grid. 

The  program  begins  by  reading  in  some  preliminary  information.  READJS 
is  then  called  to  load  SlD  with  the  raw  data  values.  Next  the  program 
draws  the  box  and  titles  it.  The  next  section  of  the  program  is  a 
routine  to  determine  the  peak  frequency.  If  the  peak  is  not  an  end 
point  then  the  point  nearest  the  peak,  and  the  two  around  it  are  used  to 
determine  a  new  peak  frequency.  After -this  the  program  zeroes  out 
some  inask  arrays  for  CONTUN  and  then  it  calls  CONTIJN.  Just  prior  to 
calling  CONTIJN  the  input  is  written,  out  for  verification  purposes. 


INPUT  DATA  LIST  FOR  PEAK  FREQUENCY  CaNTOUR  PLOTTING  PROGRAM 


FORMAT 

VARIABLE 

DESCRIPTION 

110 

NDU 

non-dimensional  unit  flag;  if  NDU®!  then 
non-dimensional  units  will  be  used,  else 
dimensional  units  will  be  used 

I10.7A10 

NCHAR, TITLE 

number  of  characters  in  title,  title  of  plot 

I10.7F10.5, 

/, (8F10.5) 

NF,FREQ  number  of  frequencies, followed  by 

NF  frequency  values 

110 

NPTSK 

number  of  grid  points  to  skip 

2110 

IGRDX, IGRDY 

number, of  grid  points,  in  x  direction,  Y  direction 

I10,3F10.5 

MODE.AR 

mode  flag'  and  limit  values  for  CONTUN 

I10,F10. 5 

NONO, THETA 

label  flag,  if  NONOO  then  contours  are  not. 
labeled  else  they  are  labeled;  angle  of  ro- 
v  tation  for  label 

I10,F10.5 

NDGT,SIZE 

1 

number  of  decimal  places  to  be  used  for  labels; 
height  of  digits  in  label  in  inches 

2F10.5 

SI,SJ 

number  of  points  to  be  plotted  per  inch,  x 
direction,  y  direction 
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LIST  OF  VARIABLES  USED  IN  PEAK  FREQUENCY  CONTOUR  PLOTTING  PROGRAM 

NDU  -  non-dimensional  units  flag,  if  NDU= 1  then  non-dimensional  units  are 
used  else  dimensional  units  are  retained 
LFPM  -  number  used  to  normalize  frequency 
NC11AR  -  number  of  characters  in  title 
TITLE  -  title  of  plot 
NF  -  number  of  frequencies 
FREQ  -  list  of  actual  frequency  values 
NPTSK  -  number  of  grid  point  values  to  skip 
IGRDX  —  number  of  grid  points  in  x  direction 
IGRDY  -  number  of  grid  points  in  Y  direction 
MODE  -  mode  flag  for  CONTUN  (see  CONTUN  for  more  info) 

AR  -  limit  values  for  CONTUN  (see  CONTUN  for  more  info) 

NONO  -  labeling  flag,  if  N0NO=>0  then  contours  are  not  labeled,  if  NONOj*0 
then  contours  are  labeled 
THETA  -  angle  of  rotation  of  contour  labels 

NDGT  -  number  of  digits  to  left  of  decimal  point  to  be  displayed  on  contour 
labels 

SIZE  -  vertical  height  of  digits  of  contour  labels 

SI  -  number  of  points  plotted  per  inch  in  X  direction 

SJ  -  number  of  points  plotted  per  inch  in  Y  direction 

NGRID  -  number  of  points  to  be  transferred  into  SID 

SID  -  array  1-D  spectrum  values 

IND  -  index  into  SID 

XMAX  -  length  of  x  axis  in  inches 

YMAX  -  length  of  Y  axis  in  inches 

XINDT  -  x  coordinate  of  new  origin 

YINDT  -  y  coordinate  of  new  origin 

L  -  do  loop  index 

K  -  do  loop  index 

SM  -  used  to  hold  the  SID  value  that  seems  to  be  the  largest 

JM  -  the  index  of  the  largest  value 

XI  -  frequency  at  point  prior  to  peak 

Y1  -  SID  value  at  point  prior  to  peak 

X2  -  frequency  at  peak 

Y2  -  SID  value  at  peak 

X3  -•  frequency  at  point  just  past  peak 

Y3  -  SID  value  just  after  peak 

DENOM  -  denominator  of  expression  used  to  calculate  peak  frequency 
F  -  array  used  by  CONTUN  to  do  contour  plot,  filled  with  frequency  values 
at  each  grid  point. 

XNUil  -  numerator  of  curve  fit  equation 

FS  -  mask  array  used  by  CONTUN,  must  be  zeroed  out 

FSMSK  -  mask  array  used  by  CONTUN,  must  be  zeroed  out 


READJS-  this  subroutine  reads  a  JSREC 
PARAMETERS- 

LUN  -  logical  unit  number  of  file  containg  JSREC 
SID  -  array  to  be  loaded  with  1-D  spectra  values 
NF  -  number  of  frequencies 

NGRID  -  number  of  values  to  be  loaded  into  SlD 
LOCAL  VARIABLES- 

J  -  do  loop  index  "<  - . 

BUFFER  -  input  buffer  / 

I  -  do  loop  index 


TEXT- 

This  subroutine  loads  the  1— D  spectra  values  into  SID  and  leaves 
the  tape  containing  the  JSREC  rewound  to  beginning  of  file. 


PROGRAM  PKfRCDN 


PROGRAM  >K?RCON( I N > J T , OU T P JT , T A P E 5 ■ I NP UT , T AP E 6- OUTPUT ♦ T APE  7* 

♦  TAP  El-1)  J; 

C  I 

C  T -i I S  PROGRAM  DOES  CONTOUR  PLOTS  OF  PEAK  FREQUENCY  OVER  THE  WHOLE  GRI^J 

C  TITLE  -  T I T  _  =  OF  GRAPH  i 

C  NCHAR  -  .NUMBER  OF  CHARACTERS  IN  TITLE 
C  NF  -  NUMBER  3F  FREOUENCIES 

C  IGRDK  -  NUMBER  OF  GRID  POINTS  IN  X  DIRECTION  ; 

C  I GRD  f  -  NU13ER  OF  GRID  POINTS  IN  Y  DIRECTION  ! 

C  NPTSK  -  NUMBER  OF  GRID  POINTS  TO  SKIP 

C  MODE  -  SPECIFIES  MODE  FOR  /CONTUN/  j 

C  AR  -  INTERVA.  VALUES  FOR  /CONTUN/  ] 

C  SI  -  NUMBER  OF  POINTS  PER  INCH  IN  X  DIRECTION  '■  i 

C  SJ  -  NUMBER  OF  POINTS  PER  INCH  IN  Y  DIRECTION  . ! 

C  THETA  -  ANG  _  E  THAT  CONTOUR  LABELS  ARE  ROTATED  j 

C  NONO  -  FLAG  TO  TELL  /CONTUN/  WHETHER  OR  NOT  TO  LABEL  CONTOURS 
C  SIZE  -  HEIGHT  OF  CONTOJR  LABELS  AS  PART  OF  AN  INCH 
C  NOGT  -  NUM8ER  OF  DIGITS  IN  CONTOUR  LABEL 

C  SID  -  1-D  SPECTRUM  VALJES  1 

C  FREQ  -  ARRAY  OF  FREQUENCIES 
C  F  -  INPUT  ARRAY  FOR  /CONTUN/ 

C  F SMS  <  -  MASK  ARRAY  FOR  CONTUN 
C  FS  -  MASK  ARRAY 

REAL  SI OI 530,20) .FREQ  1  2D)  ,F 1 20* 2D), FSMSK (530) »AR 13) 

INTEGER  =S(18),  TITLEC7J 
C  READ  IN  _ENST  H  OF  TITLE  AND  TITLE  OF  GRAPH 


REAL  LFPM 

DATA  LFPM/0.Dfe37A/ 

RE AD( 5, 1D0D  )  NOU 
IFINDU  .EQ.  1)  GOTO  5 
LFPM-l.D 
5  CONTINUE 

READ(5,1D0D)  NC HAR , ( T I TL E  4  I ) . I  - 1, 7, 1 ) 

1000  -ORHAT ( l 10»7A10  ) 

READ  (5,1010)  NGRID 

C  GET  NUMBER  OF  FREQUENCIES  AND  LIST  OF  FREQUENCIES 

READ! 5* IDO)  NF , (FRE 0( I ) , I -1 ,NF, 1) 

100  :ORMAT(UO,7F1O.O,/,(0F1D.O)  ) 

C  GET  NUMBER  OF  GRID  POINTS  TO  SKIP 

REA0(5,IDD0)  NPTSK 

C  GET  X  AND  Y  DIMENSIONS  0=  GRID 

RE  AD (5,1  DIO)  I GRDX , I GRO Y 
ID  10  :0RMAT(8110) 

C  START  GETTING  /CONTUN/  INFORMATION 

C  GET  MOO E  AND  APPROPRIATE  AR  VALUES 

READ(5,LD20>  M0DE,AR(1),AR(2),AR(3) 

1020  =ORMAT< I  10, 7F 10,0) 

C  GET  .ABElING  F_AG  AND  ANGLE  OF  ROTATION  FOR  LA3ELS 
READ(5,1D20)  NONO, THETA 
C  GET  NUMBER  OF  OIGHS  ANO  SIZE  OF  LABELS 

READ(5,L020>  NOGT, SIZE 

C  CA.CULATE  NUMBER  0=  POINTS  NEEDED  FROM  TAPE 

REAO(5,1D30)  SI,SJ 
1030  ;ORMAT (8-10*0) 

C  GET  1-D  SPECTRUM 

CALL  READJS( l, SID, NF, NGRID) 

C  DECIDE  WHERE  TO  START  AT  IN  1-D  SPECTRUM 

INO  -  1  *  NPTSK 

C  SET  UP  FOR  PuOT  ROUTINES  . 

C  INITIALIZE  THE  PLOTTER 

CALL  PL0TS(0,0,7) 

C  HOVE  PEN  AWAY  FROM  EDGE  OF  PAPER 

CALL  PLOT (0.5, 0.5, -3) 

C  GET  DIMENSIONS  OF  PlQT 

XMAX-I GRDX/S  I 
YMAX-IGROY/SU 

C  DRAW  BOX  AROUND  PLOT 

CALL  PLOT (O.D, YMAX , 2 ) 

CALL  PL3T (XMAX,YMAX,2 ) 

CALL  PLOT ( XM AX ,0»D , 2 ) 

CALL  PLOT (O.D, O.D, 2  ) 

C  SET  UP  NEW  ORIGIN 

XINOT-i. D/(2. 0*SI ) 

1 INDT-I. )/<2.0*SJ) 
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ROGRAM  PKFKC3N 


CALL  P..3T  IXINDT  ,YINDT  ,-3) 

C  >UT  TITLE  ON  GRAPH 

:ALL  SYM3 OLID. O.YMAX, 0.25, TITLE ,3.3,NCHAR> 

C  CALCULATE  PEAK  FREQUENCIES 

30  50  L«l,IGRDY,l 
DO  50  K-l »  I GkDX , 1 

SET  JP  FOR  F I NQING  PEAK 
S1-S1DI I  N  D ,  1 ) 

JM-1 

ID?  3F  SEARCH  LOOP 
03  13  J -2  ,  NF ,  1 

IS  THERE  A  NEW  NAX? 

IFISM.GE. S ID (  IN 3 , J  J )  GOTO  10 
JN«  J 

SM-SIDl I  NO , J ) 

CONTINUE 

SEE  IF  PEAK  IS  AT  ONE  OF  THE  ENOS 
IF( { JM.NE.l) .AND. I JM.NE. NF) )  GOTO  20 
IT  WAS  AN  ENDPOINT 
FI K,L) -FREQ! JMJ /LFPM 
GOTO  AO 
CONTINUE 

GET  PEAK  AND  FREO  ON  EACH  SIDE 
XL -F  RE  Q I JM-1 ) 

Yl-SIDI  IND.J.N— 1 ) 

X2-FRE01 JM) 

Y  2  - S 10  I INDtJNi 
X3-FRE31 JM+L) 

Y3-SL0I IND*JN*1) 

DETERMINE  DENOMINATOR 

DE  N0M-X2*Y3-X3*Y2*<3*Y1-X1*Y3*X1*Y2-X2*Y1 
IS  DENOMINATOR  ZERO? 

IF  IDENOM  .NE.  0.0)  GOTO  33 

3EN01  WAS  3 *  SO  CURVE  FIT  CAN  NOT  3E  OONE 
FIK,L>  -FREOUM)  /LFPM 
GOTO  AO 

GO  AHEAD  WITH  CALCJLATIONS 
CONTINUE 

X.NJM-Y2*X3«,X3-Y3*X2*X2*Y3PXl*Xl-Yl*X3*X3*Yl*X2*X2-YZ*Xl*>:i 
Fl<,L)-!-XNU1/I2*DEN0M) DLFPM 
CONTINUE 
ISD-INO+1 
50  CONTINUE 

C  IERO  OUT  MASK  ARRAYS 

30  9d  1-1,18,1 
FSI  I ) -0 
F  S  MS  K (  I  >-3.0 

98  CONTINUE 

30  99  I -19,530,1 
F SMS K I  II-D.O 

99  CONTINUE 

C  DUMP  DATA 

WRITEIb»20D)NF* IFREQt I) »I-1»NF»1) 

200  : ORMAT IAH  THE,I3,13H  FREQUENCIES  ARE i ,/,( r 10.6 *2X> ) 

WRITElb,205)  NPTSK 

205  -ORHATIH  ,IA,15H  POINTS  SKIPPED) 

WRI TE 15*210)  IGROX, I GROY 
210  =0RMAT(9H  GRID  IS  ,IA,3H  X  ,IA) 

WRl TE I b,215>  MODE, ARID  ,  A  R I  2)  *  A  R I  3) 

215  -ORMATISH  MODE - , 1 2 , 5X , 13 H AR  VALUES I F 10.6 ,2X > > 

WRITEtb,223>  THETA , NDGT , 5  I Z F 

220  FORMAT!  7H  T HE  T  A  -  ,F  1 0 . 6 ,5  <  »  5HNDGT I  A ,  5  X  ,  5HS  1  ZF.  -  ,1  10. 6  ) 

WRITE I b »  ?  25 )  SI,SJ 

225  -ORMATIc/H  NJM8ER  OF  POINTS  PER  INCH: ,F7.A,3H  X  ,F7.A) 
4RlTE(b,21D)  XM  AX , Y  MAX 

230  -0RMATU3U  SIZE  OF  B  OX :  ,  =  l  D  .  6, 3H  X  ,F10.6) 

C  30  C3NT0JR  P.0T  FINALLY]]])]! 

CALL  CONTJNI-  ,  IGROX,  IGRDY  ,  F  S  ,  AR  ,  MODE  ,  S  I  *  S J  ,  T HE  T  A,NONO »  S 171: , 

♦  =SMSK,NDGT) 

CALL  PlDT  10,3,999) 

STOP 

END 


10 

C 

C 

20 

C 


c 

c 

c 

c 

30 

AO 
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UOi  JOl  1'Ji  Ji  > 


,  < JUT  I  HE 


RE  AO J S 


SUBROUTINE  READ  JS(  _UN,SID,NF  ,  NOR  ID) 

THIS  SJ3RJJTISE  READS  1-D  SPECTRAL  VA.UES  FDR  SELECTED  STATIONS 

SID  -  RETJRNS  RESULT  DF  SU3RUUTINE 
BUF=£k  -  TE 1 PQR  A  R Y  INPUT  BUFFER 
LUN  -  LOGICAL  UNIT  NUNBER 
J  -  FREQUENCY  DD  LOUP  INDEX 
L  -  BUFFER  INDEX 

REAL  BJF-ERC501I.  S1D(50D,SF) 

INTEGER  Nr  ,L JN, I ,J *NGRID 

SET  FILE  POINTER 
REWIND  LJN 

DO  JNTIL  A__  FREQUENCIES  HA  YE  BEEN  PROCESSED 
DO  30  J=*l  ,  NF  ,  1 

BUFFER  IN  ILUN.L)  ( BUCF  ER ( 1 1  *  BUFFER!  50  LI) 

IF  (UNITUUNI)  1 0 »  40 ♦ 4  0 
10  DO  20  I*1»NGRID«L 

S1DI I »  JI-3UFFER! I ♦ 1 1 
20  CONTINUE 

30  CONTINUE 

RESET  FILE  POINTER 
REWIND  LJN 
RETURN 

ERROR  CONDITION 
40  RRIT£(b*50)  _UN 

50  FORMAT! 32H0*  ♦  *  ERROR  OR  EOF  READING  UNIT»I3,6H  *  *  ♦) 

STOP 

END 
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non  ononoo 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  CD  NT  US(  :  ,  I  MAX  ,  JM  AX  ,  F  S  *  A*  ,  MOD  t  *  5  C  AL  E  l  » SCALE J,  THETA,  NONO, 
IS  I  Z  E  ,FSMS<,NDGT ) 


TRACES 


MODE 

MODE 

MUOE 

MODE 

MODE 


DNTOURS  THROUGH  ARRAY  F( IMAX, JMAX)  AND  PLOTS  THEH 
HNITH  SCA.EI  ,SCALEJ  "QINTS  PR,  CM.  THE  CONTOURS  ARE 
LABELED  AT  AN  AN&lE  THETA  WITH  THE  X-AXES  PROVIDED 
N0N3  -AN  INTEGER  .GE.O.  IF  NONO.LT.D  THE  CONTOURS  ARE 
NOT  LABELED.  SITE  IS  THE  SIZE  UF  THE  LABEL, 


FAMILY  0=  CONTDURS  IS  TRACED  KITH  I NTE  RV  AL  -AR ( 1 ) , 
FAMILY  OF  APPROXIMATELY  ARID  CONTOURS  IS  TRACED  H 1 T H 
A  REASONABLY  COMPUTED  CONTOUR  INTERVAL. 

A  SINGLE  CONTOUR  WITH  VALUE  AR(1)  IS  T RACED, 

AR (1 )  -  INTERVA_,ARI2) -MIN.ARC3) -MAX 

AR( 1) -NR  OF  CONTOURS,  AR ( 2 ) *F MAX - M I N, AR ( 3 > *FM AX-HAX 


IMAX  COINCIDES  WITH  THE  PAPER  X-AXES.  DIMENSION  OF  ARRAY  IN  X  DIR 
JMAX  COINCIDES  WITH  THE  PAPER  Y-AXES.  DIMENSION  OF  ARRAY  IN  Y  DIR 

FS  AN  INTEGER  ARRAYS  MUST  BE  GIVEN  DIMENSIONS  IaINAX* JMAX/31  IN 
CALLING  PROGRAM. 

NDGT«SIGNIFICANCE»IF  NED,  IS  COMPJTED. 

2  S  COMPLEMENT  AMT  ME  TIC  „  ,  „  „ 

EXTERNAL  FJNTION  LAND  I,JS  15  THE  BOOLEAN  l.E, LOGICAL!  AND  OF  TWO 

FUlLMDRD  INTEGERS.  „  „  „ 

EXTERNAL  FJNCTION  LOR  I,JS  IS  THE  BOOLEAN  OR  OF  TWO  FULLWORD  INTEGERS. 

SPECIFICATION  STATEMENTS. 

CHANGE  XDS  5.1.73 
INTEGER  FS(L) 

REAL  JAY, JAYZRD  ,F ( I  MAX, JMAX) 

DIMENSION  MASK(31),NPT(*,3),AR(3>,ACC5),AL&(5> 

DIMENSION  I  BEG  I  100) , JBEGI1DO),CDNSVC10D),NINSV(100) 

INTEGER  -SMS<(1) 

_ OG I  CAL  NAuT,LPLOT,KLOG 
.OGICAL  <LING, THING 

DATA  NPT/3, 4, 1,2, 2, 1,^,3, ^,3,2,1/ »IFLAG/0/ 

DATA  AC/L.25,2.  ,2. 5,5. ,10./ 

DATA  A  L  C  /  • 097, .3, .398, .7, 1.0/ 

FUNCTION  DE- I  NIT  ION. 

G ( I  ,A,3)-FL0AT(  I  )-A/( B-A) 

SET  PLOTTING  PARAMETERS. 

IDFS=* JrtAXMMAX 
IDFS  •)  OF  >  /  3  L  ♦  1 
4RG2-AR ( L  ) 

<BE  G  -1 
tBEGMX-D 

CSALE l-l, /SCALE  I 
CSALEJ-I. /SCALE J 
IF  (IOJT.NE.l)  GO  TO  feO1, 

DO  632  I -1,1  MAX 

WRITE  ( 6 , &D3 )  CF(I,J),J-L, JMAX) 

602  CONTINUE 

603  - ORMAT ( H  , 2 1 F  6 • 0 ) 

60<t  CONTINUE 

IF  (IFLAG.EQ.5)  GO  TO  A 
DO  3  1-1,31 
3  MASK! I ) -2**(31-I I 

SET  JP  LOOP  CONTROLLING  SELECTION  OF  CONTOURS 


10 


I  FLAG-5 

I  MAXI- I  MAX-1 

JHAX1- JMAX-1 

IF  INODE. NE. 3)  GO  TO  10 

=  MIN»ARG  Z 

CONINT- ARG2 

NCONS-1 

GO  TO  IS 

=MAX*F( i.l) 

:MIN-FMA< 

DO  12  l-l, IMAX 
DO  12  J - l , JMA  X 
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=  MIN-AHI  N1(F  1lN,F(  I  »  JH 

12  =MAX-AHA<1(FNAX,F( I , J )) 

IF  (MODE.NE.5)  GO  TO  123 
AR(3)-AR (  3M-MAX 
ARI2)-AR ( 2)*FMAX 
ARG2«(AR(3)-AR(2))/AR<1) 

120  30NINT-ARG2 

IF  (M03E.NE.2)  GO  IU  13 
IF  H3DE  * 2  SELECT  A  CONTOUR  INTERVAL 
ALGCNT»A_0G13( (FMAX-FMISJ/ARG2J 
N- ALGCNT 

A  L  G  C  N  T  »  A  1 0  3  ( A  L  G  C  N  T , 1» ) 

IF  (  AL3C  NT.GE  .0.  )  30  TO  18 
N  •  N  - 1 

ALGCNT  -1  .  «-ALGCNT 

18  B-ALGCNT 

A  *  1  • 

00  19  1-1*5 

C«ABS(  A_3CNT-ALG(1  )  ) 

IF  IC.GE.8J  30  TO  19 
3-C 

A-ACI I) 

19  CONTINUE 
CONINT-A»13.PPN 

DETERMINE  NUMBER  OF  CONTOURS  AND  MINIHUM  VALUE 

13  IF  (FMIS.GT.3.1  FMI N-FHI N* C ON  I N T 
=  HIN=»C0NINT->AINT(FMIN/CDNINTJ 

IF  CFMAX.LT. 0. »  FMAX-FHAX— CONINT 
FMAX-CONINT*AINT (FNAX/CONINT) 

IF  IMOOE.LT.  A)  GO  TO  11 
=  MIN-AHA<1IFHN,AR(2) ) 

F MAX- AMI  NKFMAX  ,AR(  3)  ) 

11  NCONS-iF MAX-FM1N)/C0NINT»1. 

NCONS-MI N0(NC0NS,A3) 

IFiNCONS ,LE. 0)  GO  TO  703) 

DETERMINE  NUMBER  OF  DIGITS  IN  LABEL 

15  3EL-1.E-A*C0NINT 
IFiNOGT.GE.OJ  GO  TO  20 
NDGT-D 

21  IF  (ABSi AMOO(CONlNr«iO.**NDGT»l.) J.LT.DEL)  GO  TO  20 
SDGT-N33M1 

IF  (NOGr.LT.il)  GO  TO  21 
INSURE  THAT  NO  P3INT  IS  EXACTLY  ON  A  CONTOUR 

20  30  32  I-1.IMAX 
30  32  J  -  1  »  UMAX 

32  IF  (ABSI AMODIFil ,J) ,CONI NT) J.LT.3EL)  F  1 1 , J ) - 1. 0 0000 1*F ( I  * J ) +2 • ♦ DLL 
START  CONTOUR  PLOTTING 
<0NTUR-3 

16  <ONT  JR-ONTUR  +  1 

CON-FMl  N»CQNINT  *  F  L  )  A  T  (KQNTUR-1) 

RRITE  (6.620)  C  ON,  F  M I N ,  CON  I  NT,  X3  NT  UR  „ 

620  :  OR  M  A  T  (  1 H  ,5X,  CON  ,FL).A,  FMIN  »F10.A,  CONINT  ,F10.A»  X0N1 
IUR  ,19) 

30  LA  NP-1.I3FS 
1A  r  S  ( fiP  I  *3 

BEGIN  EDGE  SEARCH 

-PLOT-.F  ALSE, 

JE-0 

17  JE - JE ♦ 1 
IRET-1 

A2  3-F ( IMAX, JE )-CON 
C-F ( IMAX, JE*l ) -CON 
IF  C*0.3T.0.)  GO  TO  22 
IE-  MAXI 
N1N-3 

EYE-FLOAT  UMAX) 

JAY-GC  JE  »  0,C ) 

30  TO  53 

22  IF  (JE. NE.  JMAX1  C,  3  TO  1 1 
IE-0 

23  I  E  -  I  E  ♦  1 
IRET-2 

A3  A-F (lE.l)-CON 
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D-F  ( IE  1)  -CON 

if  ( a*d. sr.o, )  co  ro  24 

NIM-4 
JE  *  1 

EYE-Gt IE*A,D) 

JAY-1. 

GO  TO  50 
24  I  RE  T=* 3 

41  3-F ( IE* J1AXI-CON 
C-Fl I E ♦ l *  J HA X ) -CON 
IFIB*C.GT.O.)GO  TO  26 
Nl  N-2 
JE- JHAX1 
EYE-GIIE»B»C) 

JAY  »FL34T<JMAX) 

GO  TO  50 

26  I  F  (  IE.NE.  IHAXDGO  TO  23 
C  BEGIN  INTERIOR  SEARCH 

IE-0 

27  IE-IE+1 
LPLOT-.MUE. 

IF(IE*E3.1)LPL0T-.=A^SE. 

JE-0 

39  JE-JE+i 
IRET-4 

40  A-F(IE*JEI-CON 
3-F(lE,JE*l)-CON 

IF ( A*B.ST.O. )GO  TO  30 
NIN-1 

EYE-FLOAT  I  IE ) 

JAY-Gt JE • A,B> 

GO  TO  50 

30  IF  (  JE.NE  .  JMAXUGO  TO  39 
IFI  IE.NE.  IMAXDGO  TO  27 

IFlKO.NTJR..NE.NCONS.ANO.<iEG.LT.BO>GO  TO  16 
C  PURGE  INITIA_  POINTS  B'JFFER 

C  SEARXH  STOREO  I N I T I  ALP  3 1  NTS  3UFFER  FOR  ONR  CLOSEST  TO  PRESENT  PEM  POSI 
< BE  GMX- <  3E  G— 1 
IRET-5 

<BMX02-<3EGHX/2*1 

<  -  0 

52  < - K ♦ 1 

IFIK.LT. <BNX02)G0  TO  82 
C  RETURN  IF  A'__  CONTOURS  ARE  P.OTTED 
I  FI KONTJR.GE. NCOS S) RETURN 
<BEG-l 
GO  TO  15 

B2  IRSOMN -9399999 

00  55  KBE  G-l »  KBEGMX 

lFII3EGUBEGI.Ea.0IG0  TO  56 

IRSO-l  I-I  BEG!  KBEG)  )**2*I  J-JBECI  KBEGn**2 

I  F  C  IRSQ.NE.OIGO  TO  53 

IFICQN.NE.CONSV I  KB  E  G ) ) GO  TO  53 

l BEG! KBE  SI -0 

GO  TO  55 

53  IF { IRSO. GE.l RSOHNi GO  TO  56 
I RSQNN-I RS3 
XBEGMN-IBEG 

56  CONTINJE 

C  TRACE  AND  P_3T  CLOSEST  STARTING  CONTOUR 

IFIKBEG1N.LE.0. OR. <BEGMN.GT. 103)00  TO  4550 
IE-IBEGI XBEGNN) 

JE- J3EGI <BEG1N> 

CON-CQNS/UBEGNN) 

NIN-NINSY (KBEGMNI 
IBEGIKBEOM.N) -0 
30  57  M»-1»I0FS 

57  : S I  HP  > -  3 

IF(Nl,N._T.1.3R.NIN.GT.4)iO  TO  4500 
GO  TO  14)»41»42»43) »NIN 

58  IFI J.EU.O) J-i 
1F(  I. EO. 0)1-1 

IFI I. CO. I  MAX) I  - IMAX1 
IFI  J.EO. JHAX) J-JHAX1 
GO  TO  52 


A73 


JUTI.SE  CONTJN. 


CURVE  :  0  L  L  3  H  3EG1N  ROUTI 'it 

C  IF  HERE  IS  U)DH  ,  SAVE  I  HE  INITIAL  POINT 
50  I F (KBEG. ST . IDO  )  LPL3T TR JE  . 

IF(LPLOT) GO  TO  59 
CONSVi K3EG)»C0N 
18EG(K3EG)-IE 
JB  EG ( KBE  3)  -  JE 
NINSV(<3;G)-NIN 
<BEG-K3E  G  +  l 

C  I F ( KBE G. GT. IDO) GO  TO  450) 

59  lbIT-IE*lMAXM 
IH3R0-I3I  T/3W1 

iaiT-iai r -3 1 > i word  » 3  2 

1 F (  A  N  3 ( 1 A  S  K  ( IBlT)»FS(Irf3R0)).NE.0)G0  TO  ( 2 2 » 24  ♦  26 , 30 > ♦ I  RE T 
<L  I NG  -  .FALSE. 

IF(AND( 1AS<(IBIT),:SHSK{IWQRD>>.NE.0>  K.LING  -.TRUE. 

I  *  I  E 
J- JE 


K.LING  -.TRUE. 


EKEY-EYE-1. 
EKAY-JAY ~i. 
EKEY-CSA_EI*EKEY 
EKAY-CSA_E J^EKAY 
IF(NONO._T.OIGO  TO 


IF(KLIN3I  GO  TO  11)0 
IF  (LPL3  T ) CA_L  NUM3ER(EKEY,EKAY»SIZE,C0N,THETA,NDGT>  l 

C  l  F  (LPL3T  )  CAL.  NUMBER!  (EYE-1.  )*CSALEI,(  JA  Y-L .)  *CSAL  E  J ,.  105  ,(:0N>  TW.T 

C  1A,N0GT)  • 

1000  CONTINUE 

C  IFILPLODCALL  P  LOT  (  (  E  YE -L  .  I  *  CS  A  L  E  I  ,  (  JA  Y -1.  )  *  C  S  ALE  J  ♦  3 ) 

IF (LPL3T I CALl  P LOT ( E <E Y , E K A Y , 3 ) 

C 

1100  CONTINUE 

<L I NG  -  .TRUE. 

EYEZRO-EYE  1 

JAYZ.RO-JAY  <. 

<LOG-.FA_SE.  1 

I  PEN-2 

NALT«.FA_SE.  i 

CURVE  -ALL3VI NG  ROUTINE 

tO  A-F  I  I  , J)  -CON  I 

J-FII  »  J  1 )  -C  3N 

C-FII*l»J*l) -CON  , 

)-F(I»l»J)-C3N 

IB1T-I  «■!  NAX*(  J-1J-1  I 

I W3R3-I3I T/ 31 ♦ 1 

IBIT-IBI  T-31MnORO*-32 

=  S(  I  WORD)  -  UR  (F  S(I  rfORD)  ,NASK(  IBim 

JPP-1 

I F ( A&C.GE.3. ) JPP-J^P^l 

IF (B43.GE.3. » JPP-JPP+2  j 

1 F ( JPP.E3.4JGO  TO  44 

73  NOJT-NPf (NIN,JPP) 

GO  T0(72»74»76»78)»N0UT 
44  I F (A*B> 45, 4b, 47 
4fc  JPP-2 
GO  TO  73 
C  47  IMl-I-l 
C  JM1-J-1 

C  I P  2- I ♦ 2 

C  JP2-J+2 

C  HiITE(6,4S)  I, J,NIN,C0N,((F( IZ,JZI,IZ-IN1,I?2),JZ-JM1,JP2> 

C  45  : ORN  AT ( 2  3H IE  RR OR  IN  CQNTJR  FOR  1 1 2 *  3H>  J- »  I  2 , 5H,M  IN-,  1 1  *1 2lt ,  AMI) 

C  ICONTJR-, E 18.3// (4E20.B) ) 

47  GO  TO  (22,24,26,33,58),! RET 
72  EYE -FLOAT (I > 

JAY-G( J, A,B) 

IF<  I.E3. L)HA»T-.TR JE. 

l-I-l 

GO  TO  33 

74  L  YE-C( I , 3  ,CJ 
JAY-FLOAT  (  J -t- 1  ) 

(MJ.EO.J  MAXI)  HALT -.TRUE. 

J  -  J  ♦  l 

GO  TO  8) 


1000 
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76  EYE-FL04T(I*1) 

JAY-Gl J,3,C) 

IF  (  I  .EQ. I H AX L) HALT -.TRUE. 

I-l*l 
3  0  TO  ti  7 
78  EYE-G( 1,4,0) 

JAY-FLJ4T  C J) 

IF ( J.EO, 1 ) HALT*. TR  JE • 

J*  J-L 

C  80  IF (LPLOT )CALL  PLOT  I CEYE-L* )*CSAlE I »CJAY-1. )*CSAL£J»JPEN) 

C 

80  CONTINUE 

<LING  *  .TRUE. 

IF  C  A.ND(NASK(  IBIT),  =  SMSK(  I  WORD)  )  .NE.O)  KL1NG*.  FALSE* 

THING  -  .FALSE. 

IF<  IPE'4*Ea.3>  THING  -  .TRUE. 

IPEN  »  3 

IFIKLIN3)  IPEN  -  2 
IF (THING)  IPEN  -  3 
EKEY-E YE-1. 

EKAY* JAY-1. 

EKEY-CS4_El*EKEY 

EKAY«CSA_EJ*EKAY 

IF (LPL3TICALL  PLOT ( E KE Y, E K A Y , I P E N > 

IFIKLOG. AN0.EYE.EQ.EYEZR3. AND. JAY. EG. JAYZR3 ) HALT*. TRUE. 

I F ( HALT ) GO  TD  90 
IPEN-1 

NIN-NPTI NOUT, II 
<LOG-.TR JE. 

30  TO  63 

CURVE  FOLLOW  END 

90  IF(N0N3._T.0)G0  TO  1001 
IFUPEN.E0.3)  GO  TO  1001 

IF (LPLOT )CAL_  NUM3 E R ( E KE Y , EK AY , S I Z E , CON , TH £T A , NDGT ) 

C  IF (LPLOT) CALL  NUMB ER ( ( E YE -1. ) *C S AL E I » ( JAY-i. 1 *C SALE J, . 105 ,CON* ThET 

C  1  A , NDGT ) 

1001  CONTINUE 

GO  TO(22,24,2b,30,58),lRET 

4500  NRITE(6, A 53 1 ) N I N ,K 3 EG , KBE GHX ,K, I E , JE , KONTUR , CON ,KBE GMN 
4  501  =0RMAT(4NNIN-,I 15/5HKBEG-, 1 15/ 7H<B E GMX- , 1 1 5 / 2 HK - , 1 1 5/ 3H I E- *  1 15 / 
♦3HJE-.I 1>/7H<ONTUR-I15/4NCON-,E23.3/  7HKBEGHN-, 115//) 

<BEG*1 
GO  TO  15 

7000  NRITE ( 5, 70D1) 

7001  -0RN4T(1H1/5K,MERR)R-NEG4TIVE  NO,  OF  CONTO JRS "/ 1H1 ) 

RETURN 

END 


F.  AVERAGE  FREQUENCY  CONTOUR  PLOTTING  PROGRAM 

This  program  produces  a  contour  plot  of  average  frequency  with  the 
X  and  Y  directions  representing  distance.  The  plot  is  enclosed  in  a  box 
and  titled.  The  box  is  supposed  to  correspond  to  boundaries  of  the  ocean 
that  we  are  modeling.  This  program  is  presently  set  up  to  handle  up  to 
a  20  x  20  grid  point  region.  It  presently  gets  its  information  for  only 
the  final  time  step  out  of  the  SREC. 

The  program  starts  out  reading  in  preliminary  information.  BUFFER 
is  then  loaded  with  the  data  to  be  put  in  the  contour  array.  Some  arrays 
that  CONTUN  needs  are  zeroed  out.  F  is  then  loaded  with  normalized 
average  frequency  values.  The  box  and  title  are  then  drawn  as  the  paper 
is  prepared  for  the  contour  plot.  Next  CONTUN  is  called  to  do  the  actual 
contour  plot.  Afterwords  the  values  that  were  read  in  are  written  out 
in  an  attempt  to  let  me  knot/  what  data  was  input  to  the  program. 


INPUT  LIST  FOR  AVERAGE  FREQUENCY  CONTOUR  PLOTTING  PROGRAM 


FORMAT 

VARIABLES 

DESCRIPTION 

110 

NDU 

non-dimensional  units  flag;  if  NDU=1  then 
average  frequency  is  normalized  else  av. 
freq.  values  are  left  unchanged 

I10,7A10 

N CHAR, TITLE 

number  of  characters  in  title,  title  of  plot 

110 

NR 

size  of  buffer 

110 

NF 

number  of  frequencies 

2110 

IGRDX, I GRDY 

number  of  grid  points  in  X  direction,  in  Y  direction 

2110 

NPTSK, IOFSET 

Number’of  grid  points  to  ship, number  of  words 
of  information  prior  to  first  grid  point  value 

1 10 , 3F 10 . 5 

MODE , AR 

mode  flag  for  C0NTUN,  limits  for  CONTUN 

2F10.5 

SI,SJ 

points  per  inch,  x  direction,  y  direction 

I10.F10.5 

NONO, THETA 

if  N0NO»0  then  contours  are  not  labeled  else 
contours  are  labeled;  angle  of  rotation  of  label 

110, F10. 7 

NDGT.SIZE 

number  of  decimal  places  to  be  printed  in  labels, 
size  in  inches  of  label 
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NDU  -  non-dimensional  units  flag,  if  NDU= 1  then  the  average  frequency 
values  are  divided  by  LFPM  to  make  frequency  non-dimensional 
if  NDU/1  then  the  average  frequency  values  are  left  as  they  are  . 
read  in 

LFPM  -/0. 06374/  value  that  is  divided  into  frequency  to  make  it  non-dimensional 
NC11AR  -  number  of  characters  in  title 
TITLE  -  title  of  plot 

NB  -  number  of  words  to  be  read  in  at  a  time,  size  of  buffer 
NF  -  number  of  frequencies 

IGRDX  -  number  of  grid  points  in  x  direction 

ICKDY  -  number  of  grid  points  in  y  direction 

NPTSK  -  number  of  grid  point  values  to  skip  in  buffer 

IOFSET  -  number  of  values  at  beginning  of  buffer  that  precede  first  grid 
point  value 

MODE  -  tells  CONTUN  what  plotting  mode  to  use  (see  CONTUN  for  more  info) 

AR  -  up  to  3  values  to  be  used  as  limits  for  CONTUN 
ST  -  number  of  points  per  inch  to  be  plotted  in  X  direction 

SJ  -  number  of  points  per  inch  to  be  plotted  in  Y  direction 

NONO  -  labeling  flag;  if  NONO^O  then  contours  are  not  labeled,  if  NONO/O 
then  contours  are  labeled 
THETA  -  angle  of  rotation  of  contour  labels 
NDGT  -  number  of  decimal  places  used  in  labels 
SIZE  -  size  in  inches  of  labels 

BUFFER  -  input  buffer,  temporarily  holds  data  from  tape  before  it  is  put 
into  F  to  be  plotted 

FS  -  array  required  by  CONTUN,  must  be  set  to  0 

FSM3K  -  an  array  required  by  CONTUN,  must  be  set  to  0 

INF)  -  index  into  BUFFER,  starts  out  as  1+I0FSET+NPTSK 

XMAX  -  length  of  X  axis  in  inches 

YMAX  -  length  of  Y  axis  in  inches 

XINDT  -  new  x  coordinate  for  origin 

YINDT  -  new  Y  coordinate  for  origin 


! 


READS-  this  subroutine  reads  an  SREC 
PARAME'i’ERS- 


LUN  -  logical  unit  number,  device  number  of  tape  with  SREC 
DUFFER  -  input  buffer  that  is  to  receive  the  SREC  data 
NB  -  number  of  words  to  be  read  in 
NF  -  number  of  frequencies 

LOCAL  VARIABLES- 

I  -  do  loop  index 

DUM  -  temp  location  used  to  read  into  while  skipping  over  records 
TEXT- 

This  subroutine  spaces  the  tape  forward  to  the  SREC  and  then  loads 
it  into  BUFFER.  Hie  number  of  words  read  in  depends  on  NB. 


i 


[ 

[ 
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PROGRAM  AVFQ 


PROGRAM  AVEQ  (  I  N  P  UT  ,  OUTPU  T  ,  T  APE  5»  I N  PU  T,  T  A  PE  6- OUT  PUT  ,  T  APE  1 ,  TAPE7/ 


DIRECTION 

DIRECTION 


TO  LABEL  CONTOURS 


n 


c 

C  THIS  ROUTINE  PLOTS  AVEkAGE  FREQUENCY  FROM  CYCLE  TAPE  DATA. 

C 

C  AR  -  INTERVAL  VALUES  FOR  /CONTUN/ 

C  F  -  INPUT  ARRAY  FOR  /CONTUN/ 

C  FS  -  MASK  ARRAY 
C  F  SMS  <  -  MASK  ARRAY  FOR  CONTUN 
C  IGRDX  -  NUMBER  OF  GRID  POINTS  IN  X 
C  IGROY  -  NUMBER  OF  GRID  POINTS  IN  Y 
C  MODE  -  SPECIFIES  MODE  FOR  /CONTUN/ 

C  NDGT  -  NUMBER  OF  DIGITS  IN  CONTOUR  LABEL 
C  NF  -  NUMBER  OF  FREQUENCIES 

C  NONO  -  FLAG  TO  TELL  /CONTUN/  WHETHER  OR  NOT 
C  NPTSK  -  NUMBER  OF  GRID  POINTS  TO  SKIP 
C  SI  -  NUMBER  OF  POINTS  PER  INCH  IN  X  DIRECTION 
C  SJ  -  NUMBER  OF  POINTS  PER  INCH  IN  Y  DIRECTION 
C  SIZF  -  HEIGHT  OF  CONTOUR  LABELS  AS  PART  OF  AN  INCH 
C  THETA  -  ANGLE  THAT  CONTOUR  LABELS  ARE  ROTATED 
REAL  F<ZD,20I  ,BUFFER<45U) 

REAL  AR<3), SI ,SJ, THETA, SIZE 

REAL  FSHSK(  530)  ,  XHA X, YN AX , X INDT , Y I  NOT  ; 

INTEGER  N8.NF , I GRDX , IGRDY , I OFSE T, NP TSK , MODE ,F S < 18 ) , T I TLE < 7 )  f 
REAL  LF  PM 

DATA  LFPH/O. 06374/ 

READ (5*1 000 )  NDU 
I F ( NOU  .EO.  II  GOTO  5 
LFPM-l.O 
5  CONTINUE 

C  REAO  IN  LENGTH  OF  TITLE  AND  TITLE  OF  GRAPH 
RE AD <5, 1000  I  NCHAR, < TITLE < I  >,1-1,7, II 
C  GET  SIZE  OF  BUFFER 

READ<5,10!0>  N8 
C  GET  NUMBER  OF  FRUENCIES 

READ! 5.1010)  NF  , 

C  GET  X  AND  Y  DIMENSIONS  OF  GRID  ) 

RFAD<5,101C>  IGRDX, IGRDY 

C  GET  NUMBER  OF  GRID  POINTS  TO  SKIP  AND  IOFSET 

REAO<5»1010)  NPTSK, IOFSET 
C  GET  MODE  AMD  AR  VALUES 

READ!  5, 1020  MODE  ,  AR  1 1 )  ,  AR  (  2  )  ,  AR  (  3 ) 

C  POINTS  PEP  INCH 

R  E  AD ( 5  » 1 P  30  )  SI,SJ 

C  GET  LABELING  FLAG  AND  ANGLE  OF  ROTATION  FOR  LABELS 
R  E  AD  <  5 , 1 02  0 )  NONO, THETA 
C  GET  NUMBER  OF  DIGITS  AND  SIZE  OF  LABELS 

READ(5»102O>  NDGT, SIZE 
1000  FORMAT ( I 10,7A10) 

1010  F  ORMAT ( 8  I  10) 

1020  FORMAT  I I10»7F10»Q) 

1030  fqrmaTCBFIO.O) 

C  ^ D AD  BUFFER. 

CALL  READSd, BUFFER, NB, NF  ) 

30  98  1-1,18,1 
FS ( I ) -0 
F SMS K l  I )  -0.0 

98  CONTINUE 
DO  99  1-19,530,1 

F  SMSK ( I  I -0 .0 

99  CONTINUE 

C  ADJUST  BUFFER  INDEX 

IND  -  IOFSET  ♦  NPTSK  ♦  1 
C  _OAD  F 

DO  10  J-l, IGRDY, 1 
00  10  1-1, IGRDX, 1 

F<  I  »JI  -BUFFER! INDI/LFPM 
I  NO  -  IND  ♦  1 
10  CONTINUE 

C  GET  DIMENSIONS  OF  PLOT 

XMAX-IGR OX/SI 
YMAX-1 GRDY/S J 

C  INITIALIZE  THE  PLOTTER 

CALL  PLOTS! 0,0, 7) 

C  MOVE  PEN  AWAY  FROM  EDGE  3F  PAPER 

CALL  PLOT <0.5, 0.5, -31 


l 


!} 

] 
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C  DRAW  BOX  AROUND  PLOT 

4  CALL  PLOT (0.0 ,YMAX,2) 

CALL  PLOT  (XMAX,Yi1AX,2) 

CALL  PLOT ( XMAX, 0.0, 2) 

CALL  PLOT ( 0. 0,0. 0,2 ) 

C  SET  UP  NEW  ORIGIN 

X I  NOT  =  1. 0/(2. 0*5  I) 

YINDT=1.0/( 2.C*SJ) 

CALL  PLOT ( XI  NOT  ,  YI NOT  ,-3) 

C  POT  TITLE  ON  GRAPH 

CALL  SYMBOLIC. 0,YMAX,0. 25,  TITLE  ,0.0, NCHAR) 

C  DO  CONTOUR  PLOT  F I NA LL Y I  I  ] J I  ] 

CALL  CON  TUN  (F  ,  1  GRO  X  ,  I  GRD  Y  ,  F  S  ,  AR ,  MODE  ,  S  I  ,  S  J  ,  TH  L:  T  A ,  NONO ,  S  1 2  F  , 
♦  FSMSK,NDGT) 

CALL  PLOT (  0  »  D , 999 ) 

C  DUMP  DATA 

WRITE<6,220)  THETA, NDGT  ,  S  I ZE 

220  FORMAT  (  7 H  THE  T  A=*  ,F  10 .6 * 5X ,  5HN0GT- ,  I  A  , 5X  ♦  ISMS  1 Z  E  »  vF10. 6  ) 

WRITE  16,230)  XMAX, YMAX 

230  FORMAT  1 13H  SIZE  OF  BOX : »  c 10.6, 3H  X  ,F10.6) 

WRITE (6»3C0)  NB 

300  FORMATUH  N8«,1A) 

WRITE (6,301)  NF 

301  FORMAT!  4H  NF»,I4) 

WRITE(6,302)  I GRDX , I GROY 

302  F0RMAT(9H  GRID  IS  ,I4»3H  X  ,14) 

STOP 

END 


rr 
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SUBROUTINE  READS 


C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

c 

( 

c 

c 


10 


20 


50 

1000 


SUBROUTINE  READS  (LUN*  BUFFER*  NB*  NF ) 

SUBROUTINE  TO  READ  SUMMARY  RECORD  -  - 

SUMS  OVER  FREOUENCY  AND  DIRECTION* 

REAL  BUFF  E  R ( N  B ) 

REWIND  LUN 
SKIP  TO  SPEC. 

0  0  10  I  =  1 * N  F 

3UFFER  IN  (LUN*1)  CDUM*OJM) 

IF  (UNIT  (LUSH  10*  50*  50 
CONTINUE 

BUFFERIN'  ( L  U  N  *  1 )  (  BUFFER  (1). BUFFER  (NB)  ) 

IF  (UNIT  (LUNH  20*  50*  50 

CONTINUE 
REWIND  LUN 

RETURN 

WRITE  16*1000)  LUN 
FORMAT  (3ZH0* 

STOP 

END 


*  *  ERROR  OR  EOF  READING  UNIT*I3*6H  *  *  *  > 
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SUlROUIIME  C3NTUSI : ,1  MAX,  JM  AX » F  S»  Aft  .MODE.SCALEI  .SCALE J,  THETA.  NONU, 
1  $  I  2E  »FSM5<»N3GT I 

TRACES  CONTOURS  THROUGH  4RRAY  c  C  1  MAX.  JMAX)  AMD  PLOTS  THFH 

WHITH  SCA.E  I  ,SC*LEJ  '*01  MTS  PR*  CM.  THE  CONTOURS  ARE 
LABELED  AT  AN  ANGlE  THETA  WITH  THE  X-AXES  PROVIDED 
N3H3  -AN  INTEGER  .GE.D.  IF  N0N0.LT.3  THE  CONTOURS  ARE 
NOT  LABELED*  SIZE  IS  THE  SIZE  UF  THE  LABEL. 

MODE  -  L  FAMILY  0-  CONTOURS  IS  TRACED  WITH  INTERVAL  =»AR(1), 

MODE  =  2  FAMILY  OF  APPROXIMATELY  ARID  CONTOURS  IS  TP.ACfD  WITH 
A  ft  E  AS  ON  ABLY  COMPUTED  CONTUUR  INTERVAL. 

MODE  -  3  A  SINGLE  C0NT3JR  WITH  VALUE  ARID  IS  TRACED. 

MODE  -  ft  AR(i)-IMTERVA_,AR(2)-NlN,AR(3)=*MAX 

MODE  -  5  ARID-NR  OF  CONTOURS.  Aft  I  2  )  *F  MAX  «  M  I  N  ,  AR  (  3  DEM  A  X-MAX 

IMAX  COINCIOES  WITH  THE  PAPER  X-AXES.  DIMENSION  OF  ARRAY  IN  X  DIR 
JMAX  COINCIOES  WITH  THE  PAPER  Y-AXES.  DIMENSION  OF  ARRAY  IN  Y  |)1R 

FS  AS  INTEGER  ARRAYS  MOST  BE  GIVEN  DIMENSIONS  1*  I  MAX* JMAX/ 31  IN 
CALLING  PROGRAM. 

N3GT-SIGNIFICANCE.IF  NES.  IS  COMPJTED. 

2  S  COMPLEMENT  AftlTMETIC 

EXTERNAL  FJNTI3N  LAND  I.JS  15  THE  BOOLEAN  I. E, LOGICAL*  AND  Of  TrIO 
FUlLWORO  INTEGERS. 

EXTERNAL  FJNCTION  LOR  I.Jl  15  THE  BOOLEAN  OR  OF  TWO  FULLWORD  INTEGERS. 

SPECIFICATION  STATEMENTS. 

CHANGE  *3S  5.1.73 
INTEGER  F S I  I) 

REAL  JAY, JAYZRO  ,F ( I  MAX, JMAX) 

OIMESSIOM  MASK (31)  , NP T ( 4 , 3  )  . AR ( 3 ) , AC  I  5 ) , AL G ( 5 > 

DIMENSION  I  BEG.'  100)  ,  JBEGl  1  D  D  >  »  C  D  S  S  V  i  10D  >  ,NI  NS  V  C  100  ) 

INTEGER  -SMS<(D 
.OGICAL  3ALT.LPL0T.KL0G 
_OGICAL  <LING, THING 

DATA  NPT/3,*,l,2,2,l,*,3,A.3»2,l/,IFLAG/0/ 

OATA  AC/L.25,2.,2.5,5.,L3./ 

OATA  ALS/. 397*. 3  , .  396, .  7.1.0/ 

FUNCTION  DEFINITION. 

GCI,A,B)-FLOAT(  I  )-A/( B-A) 

SET  PLOTTING  PARAMETERS. 

I  DFS  =  JMA<*1MAX 
IDFS^IDF  5/31  +  1 
ARG2-AR ( l ) 

<  B  fc  G  =■  1 

<  BE GMX-D 

CSALFI-l. /SCALE  I 
CSALE J-l, /SCALE  J 
IF  I  IUJT . NE. D  GO  TO  604 
30  632  I ■ 1 , I  MAX 

rfRITE  16,603)  IF  (I  ,  J  )  ,  J-l , JMAX) 

602  CONTINUE 

603  :ORMAT(H  ,  2  I  F  6  •  0  ) 

60*  COMTINJE 

IF  (IFLAG.E0.5)  GO  TO  * 

30  3  1-1,31 
3  MASK! I I -2**f  31-1 ) 

SET  JP  LOOP  CONTROLLING  SELECTION  OF  CONTOURS 
IFlAG-5 

*  I  MAX 1 - I  MAX-1 
JMAXl-JMVX-l 
IF  (MUDE.NE.3)  GO  TO  10 
-HIN-ARG2 
CONI  NT- ARG2 
NCQN5-1 
GO  TO  13 
10  FHAX-Fll.D 
:MIN-FMA< 

30  12  I-L.JMAX 
30  12  J-l, JMAX 
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1  KUliTl  ME  CUNTUN 


12  -MAX-AMA<l(FrtAX,F( I »  J  ) ) 

1 F  ( HOD E  » NE.  5  )  GO  TO  123 
AR(  3  )  -AR  (  3  )  »  =  MAX 
AR(?)-AR(2)*FMAX 
ARG2-(AR(3)-AR(2))/AR(1) 

120  G0NINT-ARG2 

IF  (M03E.NE.2)  GO  10  13 
:  IF  M3DE  >2  SELECT  A  CONTOUR  INTERVAL 
ALGCNT-A_DG13(  t  F MA X-F M I M ) / ARG2 > 

M-ALGCNT 

ALGCNT  -  A  1 0  D  (  ALGCNT  il«  > 

I F  ( ALGCNT, GE. 0.  )  GO  TO  18 
N  *  N  - 1 

ALGCNT » 1. ALGCNT 

18  8“ ALGCNT 

A-l. 

30  19  1-1,5 

C-ABS ( A_3CNT-ALG(1 I ) 

IF  (C.GE. 3)  GO  TO  19 
3-C 

A-ACt I ) 

19  CONTINUE 

;onint»a*i3.**n 

C  DETERMINE  NJNBER  OF  CONTOURS  AND  MINIMUM  VALUE 

13  IF  (FMIN.GT.O.I  FMIN-FMI N*C0NINT 
-NIN-CONIST^AINT  (FNIN/CQNINT  ) 

IF  (FMAX.LT. 3.)  FMAX-FMAX-CQNIMT 
FMAX-CONINT^AINT (FNAX/CONINTJ 
IF  (M03E.LT.4)  GO  TO  11 
=MIN-AMA<1(FNIN,AR12>) 

FHAX-AMI Nl(rMAX,ARC3l I 
11  NCONS-IF iAX  — FMINJ/CQNINT  1 . 

NCONS-MI  N0<  NCGNS»43) 

IF(NCONS.LE.O)  GO  TO  7033 
C  DETERMINE  NJNHER  OF  DIGITS  IN  LABEL 

15  3EL=1.E-V*C0NINT 
IF(NDGT.GE.O)  GO  TO  20 
NDGT-D 

21  IF  I ABS ( AMODI CONINT *10. **NDGT,1. ) I.LT.DEL)  GO  TO  20 
NUGT=N3GT*1 

IF  (NOGT.LT.il)  GO  TO  21 
C  INSURE  THAT  NO  POINT  IS  EXACTLY  ON  A  CONTOUR 

20  30  32  I-lflMAX 
DO  32  J -  1 »  JM  AX 

32  IF  ( ABS( AMODfF (  I  ,J ) ,CONl ST) ) .LT. DEL)  F (  I , J ) - 1 . 0 0000 1 *F ( I , J ) ♦ 2 
C  START  CONTOJR  PLOTTING 
<  ONTUR  =  3 

16  <ONT  JR-ONTUR  +  l 

CON-FMI S*C0N1 NT*FL J AT (KONT JR-l) 
rfRITE  (6, 6  2D)  CO  N ,  F  ri  I  N ,  C  ON  I N  T ,  K  3  NT  UR 
620  -OkrtAT(H  ,5X,  CON  )FD,lh  FMIN  »F10.4»  CONINT  ,F10.4, 
l  JR  ,18) 

30  14  IP  -  1,  I  3F  S 

14  F  S  (  MP  )  -  3 

8 1 GI N  EDGE  SEARCH 

-PLOT-.F  ALSE , 

JE-0 

17  J  E  *  J  E  *  1 
I  RET-  1 

42  3-F ( I  MAX, JE ) -CON 
C-F ( IMAX, JE  *1 ) - C 0 N 

IF  ( C*D.  3T.0. )  GO  TO  22 
I  E  -  1 1  A  X  1 
N I  N  »  3 

EYE-FLOAT ( 1  MAX) 

JAY-G(  J  E , D  »  C  ) 

GO  TO  53 

22  IF  ( JE .NE. JMAX1 )  G3  TO  17 
IE-0 

23  I E  -  I  F ♦ 1 
IRLT-2 

43  A-F C I F , 1 )-CUN 


.  ♦  0  L  i 


n 

KOnT 


JUTINE  COISTUS 


D-F  <  I  E  «- 1  *  1)  -CON 
1 F  I  A*D- CT.O. J  GO  fO  24 
M  I  S  =*  <» 

J  E  - 1 

E  Y  fc  »  G  (  1  E  ♦  A  ,  0  ) 

JAY -1. 

GO  T  3  5 D 
24  I  RE  T  =  3 

41  i«F (IF, JSAX)-CUN 
>FUE*UJ«AiC)-CON 

i f ( b*c. 3 r .o. ) co  to  zu 

S  I  M  =  2 
JE-JSAX1 
E YE=G< IE ,B,C) 

JAY  -F.3AT(  JrlAX) 

CO  TO  6 3 

26  l  F €  IE. ME.  IMAXDGO  TO  23 
C  BEGlS  I  M  T  E  R  l  DR  SEAKCH 

IE-0 

27  IE-1E+1 
_PLOT *• TRUE. 

IF(IE.ED.l)LPLOT».=A_SE. 

JE-0 

39  JE-JE+1 
I R  E  T  =  4 

40  A«*  F  (  I  E  »  J  E  )  -C  3N 
J-F ( IE ,JE ♦11-CON 

IF (A*B.GT.D. )G0  TO  30 
SIN  =  1 

EYE-FLOAF( IE) 

JAY=*G(  JE  ,A,B> 

GO  TD  3D 

30  IFIJE.SE  .  JMAXDGQ  TO  39 
IFIIE.SE.  IMAX1 ) GO  TO  27 

IFIKOSTJ*. NE.NCONS.AND.OEG.LT. 83)30  TO  16 
C  PURGE  I N I T I  A  _  POINTS  3JFFER 

C  SEARKH  STORED  I N I T I  ALP  3 1 S T S  DUFFER  FDR  ONR  CLOSEST  TO  PRESENT  PEN  POSJ 
<BEGMX»<3EG-L 
IRET-5 

<BrtX02=<3EGMx/2*l 
<  ■  0 

52  < * K ♦ 1 

IF(K.LT.<BiXQ2)G0  TO  82 
C  RETURN  IF  A__  CONTOURS  ARE  P.OTTED 
I  F ( KDNT  JR .G£ . NCONS) RE  TURS 
<  B  E  G  ■*  l 
GO  TO  lb 

B2  I R SONS- 9999979 

DO  b b  KBEG=1,KBECM< 

I F ( I 3EG( (BEG) .EQ.O ) G3  T3  66 
I  RSU»( I -I BEG( KB  EG) ) **2*C  J-JBEGI KBEG)  )**2 
I F ( IRS'J. SE.O ) GO  TO  53 
IFICON.SE. CONSV(KBEG) )G3  TO  53 
IBEG(KBEG)-l) 

GO  TO  5b 

53  IF ( I RSO. GE .1 RSONN) GO  TO  5b 
I RSOSN “ l RSD 
<BEGMN-<3EG 

56  30NTINJE 

C  TRACE  ASD  P.DT  CLOSEST  STARTING  CONTOUR 

IFIK8EG1S.LE.0.0R. < BE  CMS . GT . 103 ) GO  TO  4530 
IE-IHEGC  (BEGIN) 

JE-J3EGC (BEGIN) 

CON-CONS Y(KBEGMN) 

SIN-SISSY (KBEGHN) 

IBEGCKBE3NNI-0 
DO  57  M»-1,IDFS 

57  : S I MP ) “ 3 

IF (NIN..T .l.DR.NIN.GT .4) GO  TO  4533 
GO  TO  (43.41,42,43) ,NIN 

58  IF!  J.ECJ.  3)  J-l 

y  1F( I. EO. 3)1-1 

l F ( I .CO. I  MAX) I- IMAXl 
l  F  (  J.EU.  JMAX)  J- JflAXl 
GO  TO  52 


JUT  I  ME  CONTJ'I, 


CURVE  - O-LDH  3EGIN  ROUT  I  ME 

C  IF  MERE  IS  I OOM  ,  SAVE  THE  INITIAL  POINT 
SO  IFIKBEG. GT.1D0)LPL3T-.TR JE. 

I F ( LPLOT ) GO  TO  59 
:ONSV(  K3EO-CON 
ISEG(K3EG)*IE 
JBEG(K3EG)-JE 
NINSV(<3EG)-MIN 
<BEG=KBE  3*1 

C  IFIK8EG.GT. 1DOGO  TO  450) 

59  1BIT-IEUHAXM  JE-D-1 
IW0R0-I8I T  /  3 1  ♦  1 

I B I T  » I B I T -3 1  *  1 WORD  ♦  3  2 

I F (  AN3I 1ASKI I  BIT) ,FS< IW 3RD)) .NE.OJGO  TO  (  2 2, 24 , 26, 30 ) ♦ I  RE T 
<L I NG  *  .FALSE. 

IF  (  ANO<  HASKC I  BIT)  ,:  SMSKU  WORD)  )  .NE.  0)  KLING  -.TRUE. 

I  -IE 
J- JE 
C 

EKEY-EYt-1. 

EKAY-J AY-1. 

EKFY-CS A.EI*EKE  Y 

ekay-csa_ej*ekay 

IF(NONO._T.O)GO  TO  1000 
IFIKLISS)  GO  TO  11)0 

IF  ( LPL3  T  )  CA_L  NUM3 E R ( E K E Y ♦ EK A Y , S I l E » CON , THET A , NOGT ) 

C  IF(LPL3T)CAL_  NUMBER! I  EYE-1. )*C SALE  I, (JAY-l. )*C SALE J».105,C0N,TH 

C  1  A  »  NOGT ) 

1000  CONTINUE 

C  IF (LPLOT) CALL  PLOT  I  I E YE-1. ) *CSALE I , C JAY-1. ) *CSALE J ,3 ) 

IF (LPLOT) CALL  PLOT  I EKEY , E KAY ,3 ) 

C 

1100  CONTINUE 

<L I NG  -  .TRUE. 

EYE2R0-EYE 

JAYZRO-JAY 

<LOG-.FA_SE. 

I  PEN-2 

NALT-.F A_SE. 

CURVE  =ALL3VMG  ROUTINE 

60  A-F ( I  ,  J)  -CON 
3-F  C  I  ,  J*1)-C3N 
C-FI 1*1, J>1)-C0N 
)-F I  I ♦!  ,  J )-C3N 

I  B  1  T  -  I  ♦  I  3AX*<  J-l )-l 
I  WO  R 3  - I  3  I  T/31  +  1 
IBIT-IBI  T -31*1 H0R0*32 
=  S!  I  WORD)  -  OR  ( F  S  ( I  WORD)  ,1ASK!  IBID) 

JPP-1 

IF( A»C.GE.). ) JPP-J’P^l 
IF(0*3.  GE.D.  )  JPP-JPP+2 
I F ( JPP.E).4)G0  TO  44 

73  SOJT-NPT (NIN, JPP) 

GO  T0( 72. 74.76. 7b) ,  NQUT 

45  IF !  A*3) 45,46,47 

46  JPP-2 

GO  TO  73 
C  47  Ittl-I-I 
C  JM1-J-1 

C  I P  2- I  *  Z 

C  JP2-J»2 

C  WUTE!b,4>)  I,J,NlN»CON,C(F(lZ,JZ),IZ-INi,I?2),JZ-JMl,JP2) 

C  45  :ORMAT! 23NLE RROR  IN  CONTJR  FOR  I 1 2!  3H)  J- ,  I  2 , 5H  ,H  I N-,  1 1 , 1  2H  ,  AND 
C  1C0NTJR-, E1B.3/7 I4E20.8) ) 

47  GO  TO  (22,24,26»3),58),IRET 
72  EYE -FLOAT (I) 

JAY-G!  J, A, 9) 

I  F  !  I  ,E3.  1  MA.  T-.TR  JE» 
l  - 1  -l 
GO  TO  3) 

74  EYE  - G  (I, 3,0 
JAY-FLOAT  (  JU  ) 

I F < J.EU. JMAXl )HALT *. TRUE . 

J- J  ♦ 

GO  TO  8) 


OUTlNE  CONUS 


76  EYE-FLOAT  (  I  ♦  1  ) 

JAY-GI J,3»C) 

IF( I .EO. I  MAXI) HALT -.TRUE. 

1-1*1 
30  TO  d3 
78  E  YE  *  C ( 1 . A,0) 

JAY-FLOAT  I  J  ) 

IFIJ.EO.IIHALT-.TRJE. 

J  -  J-l 

C  80  IF  (LPLOT  ICAt.L  P  L  0  TC  (  E  Y  E  -  l .  )  <*  CS  A  _  E  I  ,  I  JA  Y-l.  )  *  CS  AL  E  J  ,  I  PE  N  ) 

C 

80  CONTINUE 

< L  INC  »  .TRUE. 

IF (AN DIM A  SKI I  81 T)»-SMSK( I H OR D ) )  • N  E  •  0 )  K LING-. FALSE. 

THING  -  .FA.SE. 

IF( I  P  E  N  »  £  J.  3  )  THING  -  .TRUE. 

I  PE  N  -  3 

IFIKLIN3)  I  PEN  -  2 
IF (THINS)  IPEN  -  3 
EKEY-EYE-1. 

EKAY- JAY-1. 

EKEY-CS A_El*EKEY 
EKAY-CS A.E J+EKA Y 

IF(LPL3T)CALL  PLOT(£kEY»EKAY,IPEN) 

I F I KLQG • A  NO. E  YE . E Q . E YE  2 R 3 • A  NO . J A Y . E G. J A YZR 3 ) H AL T-. I  RUE  . 

I F  C  HALT )  3  0  T3  90 
I  PEN-1 

NIN-NPTI ROUT » 1 ) 

<LOG-. TR JE. 

30  T 3  S3 

CURVE  FOLLOW  END 

90  IF(N0N0._T.0)G0  TO  1001 
I F ( I  PE  N , E  Q«  3 )  GO  T3  1001 

IF (LPLDT )CAL.  NUMBER! EKE Y, EK AY , S I Z E , CON , TH E T A , N DGT ) 

C  IFILPLOUCALL  NUMBER!  (EYE-i.  ) *CS  AL  E  I » (  JAY-1.  )  *C  S  AL  E  J,  .  105  >  CON  »  THE 

C  1A.NDGT) 

1001  CONTINUE 

GO  TO! 22  »2A,2b»3G»58) « 1  R  E  T 

45  00  NR  I  TE  (  b,  <i53l  )  NI  N.K3EG  *KBE  GMX,K»  IE  »  J E t KONTU R ♦ C ON  .KBEGMN 
A  501  -OR  MAT  (4  NNIN-*  I  15/SHK0EG»»  I  15/7H<BEGMX-»I15/2HK-tI15/3HIE-»H5/ 
*3HJE-,I13/7H<UNTUR»115/'HC0N-,E23.5/  7HKBHGMN-,  115//) 

<BEG-i 
GO  TO  IS 

7000  NR1TE(S»70D1) 

7001  =ORMA T( 1H 1/ 5X ,"ERK 3R-NEGAT I VE  NO,  OF  CONTO JRS ”/ 1H1 ) 

RETURN 

END 
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G.  2-D  SPECTRUM  CONTOUR 

This  program  produces  a  contour  plot  of  the  2— D  Spectrum  with 
frequency  in  the  X  direction  and  Theta  in  the  Y  direction.  The  fre¬ 
quencies  are  interpolated  to  make  equal  distances  in  the  X  direction 
reflect  equal  changes  in  frequency.  The  range  is  from  0  to  0.229  )K, 
The  Thetas  are  plotted  side  by  side  although  the  sampling  is  not  equal. 
The  list  of  directions,  from  top  to  bottom,  is:  180,  135,  90,  75,  60, 
45,  30,  15,  0,  -15,  -30,  -45,  -60,  -75,  -90,  -135,  and  -180. 

The  program  works  into  several  different  sections.  First  the 
program  goes  about  reading  in  information  about  the  plot  and  the  data. 
Next  the  program  sets  up  all  the  preliminary  data  for  C0NTUN.  The 
program  then  calls  FNDREC  to  get  the  tape  positioned  at  the  appropriate- 
time  step.  The  program  then  loads  the  2-D  array  F  with  the  available 
information.  Next  comes  a  section  of  code  to  interpolate  for  missing 
frequencies.  Just  prior  to  calling  C0NTUN  which  actually  does  the 
contour  plot  the  program  draws  a  box  around  the  region  where  the  plot: 
will  he  made  and  then  titles  it. 
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INPUT  LIST  FOR  2-D  SPECTRUM  PROGRAM 


FORMAT  VARNAME 


DESCRIPTION 


110  NCHAR 

7A10  TITLE 

I 10  GRDPT 

110  TIMS TP 

I 10  INF 

8110  IFRKQ(i) ,i=l,INF 

110  LND 

8110  FIND (i) ,1=1, IND 

110  NGRID 

F10.5  LFRAX 

F10. 5  LDIRAX 

I10,3F10. 5M0DE , AR 

I10,F10.5  NONO, Theta 


I 10, F 10. 5  NDGT,SIZE 


number  of  characters  in  title 

title  of  graph 

grid  point  number 

time  step  number 

input  number  of  frequencies 

list  of  frequency  indicies 

input  number  of  directions 

list  of  direction  indices 

number  of  grid  points 

length  of  frequency  axis  in  inches 

length  of  direction  axis  in  inches 

mode  flag  followed  by  appropriate  AR  values 

N0NO=l  then  contours  are  labeled,  NONOr'O  then 

contours  are  not  labeled;  THETA  is  angle  of 

rotation  of  label 

number  of  digits  in  label ,size  in  inches  of  label 
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2-D  SPECTRUM  CONTOUR  PLOT  PROGRAM 


VARIABLES  - 

BUF(300)  -  input  buffer 

LFRAX  -  length  of  frequency  axis  in  inches 
LDIRAX  -  length  of  direction  axis  in  inches 
AR(3)  -  array  passed  to  CONTUN 

if  M0DE=1  then  contour  interval  is  AR(1) 

if  M0DE=2  then  approximately  AR(1)  contours  will  be  traced 
if  M0DE=3  then  a  single  contour  with  value  AR(1)  will  be  drawn 
if  MQDE=4  then  AR(l)=interval,  AR(2)=min,  AR(3)=ma x 
if  M0DE=5  then  AR(l)=num  of  contours,  AR(2)=min/fmax,  AR( 3) -max/ fio-nx 
MODE  —  tells  CONTUN  what  type  of  plotting  mode  to  use 

THETA  -  angle  of  rotation  that  is  used  when  writing  the  labels  on  the  contours 
SIZE  -  size  of  label  in  fraction  of  an  inch  . 

F(42,30)  -  the  array  that  CONTUN  uses  for  the  values  to  create  the  contours 
FIND(30)  -  list  of  indices,  FIND(n)  yields  the  direction  index  for  the  nth 
direction,  the  index  is  used  as  a  subscript  into  F 
1FREQ(30)  -  list  of  indices,  IFREQ(j)  yields  the  frequency  index  for  the 
jth  frequency,  F(IFREQ (j) ,FIND(n) )  would  tell  where  to  put  a 
given  frequency— index  value  from  the  tape 
NCHAR  -  number  of  characters  in  title  of  graph 
TITLE  -  title  of  graph 

GRDPT  -  grid  point  number  that  is  to  be  plotted 
TIM3TP  -  time  step  number  that  is  to  be  plotted 

INF  -  input  number  of  frequencies,  later  becomes  total  number  of  frequencies 
after  interpolation 

IND  -  Input  number  of  directions,  becomes  final  number  of  directions 
after  180  Is  copied  to  --180 

NGRID  -  number  of  grid  points  (from  waveset,  must  know  so  tape  can  be  positioned) 
NONO  -  if  N0N0"1  then  contours  are  labeled,  if  NONO=0  then  contours  are  not  labeled 
NDGT  -  number  of  decimal  places  to  be  displayed  in  contour  labels 
FS(]5)  -  mask  array  us by  CONTUN  must  be  set  to  0 
FSMSK(15)  -  mask  array  used  by  CONTUN,  must  be  set  to  0 

11  -  tells  which  half  of  the  word  the  data  i  want  is  in 

12  -  tells  which  word  in  BUF  contains  the  data  i  want 

EOB  -  tells  me  how  many  words  to  read  in  at  a  time 

J1  -  IFREQ(j) 

K1  -  FIND(k) 

XPPI  number  of  points  per  inch  in  x  dir.rction 

YPPI  -  number  of  points  per  inch  in  y  direction 
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ISPLIT-  this  subroutine(function)  unpacks  an  integer  word 
PARAMETERS - 

IND  -  flag  indicating  which  half  the  word  to  use 
1W0RD  -  the  integer  word  containing  the  two  values 

TEXT- 

This  function  returns  the  value  stored  in  half  of  the  integer  word. 
This  unpacking  is  necessary  because  two  values  have  been  c.oinpre&scd  into 
one  integer  word  and  written  on  the  tape.  This  function  wll.'l  choose 
ei  ther  half  of  a  sixty-bit  integer  ’word(lWORD)  depending  on  the  value  In 
IND. 
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RSPLTT-  this  function  returns  a  value  stored  In  either  the  first  or 
second  half  of  a  real  variable 

PARAMCTERS- 

IND  -  indicates  whether  you  want  value  in  first  or  second  half  of  word 
WORD  -  the  real  word  that  contains  the  two  packed  values 

iEXT- 

This  function  unpacks  a  value  from  the  first  or  second  half  of  a 
sixty  bit  real  word.  It  is  needed  because  data  is  packed  on  the  tape 
as  two  values  per  word. 


FNDKEC-  this  subroutine  finds  the  proper  time  step  on  a  tape 


PARAMKTERS- 

NSTEP  -  time  step  number  to  be  searched  for 
LUN  -  logical  unit  number  of  tape  to  be  searched 
ND  -  number  of  directions  on  tape 
NF  -  number  of  frequencies  on  tape 

LOCAL  VARIABLES- 

1BUF  -  temporary  input  buffer 
J  -  do  loop  index 
K  -  do  loop  index 

TEXT- 

This  subroutine  spaces  the  tape  forward  until  the  appropriate  time 
step  is  found  according  to  a  header  record.  It  leaves  the  tape  ready 
to  read  the  data  records  for  that  time  step. 
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THt  T  A  -  ANG.E  JF  ROTATION  UF  LABELS  ON  CONTOURS 

non j  -  flag  that  tells  cuntjn  WHETHER  Ok  NOT  TJ  label  the  CONTOURS 
SIZE  -  HEIGHT  OF  LABELS  IN  INCHES 
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intHAX  ) 


FUNCTION  RSPLIT 


-UNCTION  RSPwITIINO*  WORD  ) 


INTEGER  INO 
UAL  WOO, KIP 
10  TO  (130,110) 


INO 


100  RSPLIT 
RETURN 
110  r  F  HP  > 
RSPLIT 
RETURN 
END 


WORD  .AND.  77777777770000000000B 

RORO  .AND.  00 000030 0077777777 7 7B 
-  SHI F  T (  fcN? ,30) 
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FUNCTION  ISPLIT 


-UNCTIDN  ISPLIT (  IN3.IW0R3) 

INTEGER  IN3, IWORD, ITEHP 
GOTO  1103*113), I  HD 

100  ITEHP  =  IW3R3  .AND.  7 777 7 7 7777 0 0 OOOOOOD 0 B 
I  SPLIT  »  SHIFT!  ITENP,-30) 

RETURN 

110  1TEMP  >  IH3R3  .AND.  0000 3 0 0 000 7 77 77 7 7 77 7B 
ITEMP  *  SHIFT CITErt> *30) 

I  SPLIT  -  SHIFT! ITEHP, -30) 

RETURN 

END 
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_  »K3UTI  NE  FNORE  3 


SUBROUTINE  F  NDRECt  NST£P*_UM,ND»NF) 

C 

C  THIS  SUBROUTINE  SPACES  TAPE  FORWARD  UNTIL  PROPER  TIME  STEP  IS  F DUNI 
INTESFR  I  B  U  F  (  S  )  »NSTEP*LJN».ND»NF»I»U 
C  N  S  T  :  P  -  THE  STEP  WANTED 
C  LUN  -  LOG  1  C  4  L  UNIT  NUMBER 
C  NO  -  NUMBER  OF  DIRECTIONS 
C  NF  -  NUMBER  OF  FREQUENCIES 
C  I B J -  -  INPUT  BUFFER 
C  I  -  DIRECTI 3  H  I NOE  X 
C  J  -  FREOUE  N3Y  INDEX 
C 

C  READ  IN  10  RECORD 
C 

DUFFER  IN  ( L  UN , 1 )  ( 1 BUF C L > , I BUF C 5 ) ) 

C  MAKE  SURE  NO  READ  ERRORS 

IF  C  UN  I T ( L  JN )  I  10,998,993 
C  PU*__  OUT  PRESENT  STEP  NUMBER 
10  IBUFC1J  -  ISPLIT(2,IBUF{ III 
C  IS  IT  THE  RIGHT  STEP  .NUMBER? 

IF  €  I B U  = ( 1 )  . E Q.  NSTEP)  50  TO  900 
C  NO,  WEL-  SKIP  A ^ L  THE  DATA  RECORDS  THEN 
20  DO  90  J ■ L , NF ,  1 

DO  3  0  K “1 , ND  ,  1 

BJFFER  IN  ( L  UN , 1 )  < I BUF 1 1 ) , I BUF C 1 )) 

C  MAKE  SURE  A  REAO  ERROR  DID  NOT  OCCJR 
IF  (UNIT(LUN))  30 , 998 , 99B 
30  CONTINUE 

90  CONTINUE 
C  NOW  READ  IN  ID  RECORD 

3UFFER  IN  (LUN,1)  ( I BUF (1) , I BUF ( 5 ) ) 

C  CHE  3  K  FDR  REAO  ERROR 

IF  (UNIT ( LUN  > )  50,998,998 
C  PUL-  OUT  CURRENT  STEP  NUMBER 
50  IBUF(l)  -  ISPLITI2, IBUF(l) J 
C  IS  THIS  RIGHT  STEP? 

IF  (IB'UF(l)  .NE.  NSTEP)  GOTO  20 
C  MUST  BE  RIGHT  PLACE 
900  RETURN 

998  WRITEIS, 999)  LUN 

999  -URMATI3ZH0*  *  *  ERROR  OR  EOF  READING  UNIT, 13, 6H  *  *  * ) 

STOP 

END 


i: 

i: 
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5  U3  ROUT  I  ME  C  3  NT  UN  (  -  ,  IMAX,  Jrt  AX  ,  F  S  ,  A  R  ,  MODfc  ,  S  C  AL  E  I  » SC  ALE  J  ,  THE  TA*  MONO, 
1 S I Z£  »F  S  MS  <  »N0GT ) 


TRACES 


C  3N TOURS  THROUGH  ARRAY  F(1MAX,JMAX>  AND  PLOTS  T  HF  H 
WHITH  SCA.El , SCALE J  POINTS  PR.  CM.  THE  CONTOURS  ARE 
LABELED  AT  AN  ANGlE  THETA  WITH  THE  X-AXES  PROVIDED 
N0N3  -AN  INTEGER  .GE.D.  IF  NONO.LT.3  THE  CONTOURS  ARE 
NOT  LABELED.  SITE  IS  THE  SIZE  OF  THE  LABEL. 


MODE 

MODE 

MODE 

MODE 

MODE 


1  FAMILY  0-  CONTOURS  IS  TRACED  WITH  INTERVAL-ARtl). 

2  FAMILY  0 E  APPROXIMATELY  AR(1)  CONTOURS  IS  TRACED  WITH 
A  REASONABLY  COMPUTED  CONTUUk  INTERVAL. 

3  A  SINGLE  COHTOJR  WITH  VALUE  AR(1)  IS  TRACED. 

V  AR(1)-INTERVA.,AR(2)-MIN,AR(3)-MAX 

>  ARID  -NR  OF  CONTOURS,  AR  (  2  )  *F  MAX- M  I  N,  AR  (  3  )  *FM  AX-HAX 


IMAX  COINCIDES  WITH  THE  PAPER  X-AXES. 
JMAX  COINCIDES  WITH  THE  PAPER  Y-AXES. 


DIMENSION  OF  ARRAY  IN  X  DIR 
DIMENSION  OF  ARRAY  IN  Y  DIR 


FS  AN  INTEGER  ARRAYS  HOST  BE  GIVEN  DIMENSIONS  1*IMAX* JMAX/31  IN 
CALLING  PROGRAM. 

NDGT«5IGNIFICANCE»IF  NEC.  IS  COMPUTED. 

2  S  COMPLEMENT  ARITMETIC 

EXTERNAL  FJNTIDN  LAND  I,JS  15  THE  BOOLEAN  I.E.LOGICALS  AND  OP  TWO 
FUuLWQRQ  INTEGERS. 

EXTERNAL  FUNCTION  LOR  I, US  15  THE  BOOLEAN  OR  OF  TWO  FULLWORD  INTEGERS. 
SPECIFICATION  STATEMENTS. 


CHANGE  KDS  5.1.73 

iNTcGER  fSID 

REAL  JAY, JAYZRO  ,F ( I  MAX, JMAX) 

31  ME  SSI 3N  MASK ( 31) ,NPT( 5, 3 ) , AR( 3) , AC (5) , ALC(5 ) 
DIMENSION  I B  E  G {  ID J )  , J  BEG  t 1 D 0 ) » C 0 N S V ( 100 ) ,NI NS  V ( 100 ) 
INTEGER  -SMS<(1) 

-OGICAL  HA_T,LPLOT,KLOG 
.OGICAL  <LING, THING 

OAT  A  NPT/ 3,5, 1,2, 2, 1,5,3 ,5 ,3,2,1/, I FLAG/O/ 

DATA  AC/1.25, 2. ,2. 5, 5. ,10./ 

3  AT  A  ALG/. 097, .3, .398, .7, 1.0/ 
function  de: INITIUN. 

G( I, A, 3) -FLOAT!  I ) - A / ( 8— A ) 

SET  PLOTTING  PARAMETERS. 

I DFS- JMAXvlHAX 
IDFS-I0=5/31*1 
ARG2* AR (  l  ) 

<  B  fc  G  » 1 

<  BE  GMX- 0 

CSALEI-i. /SCALE  I 
CSALEJ-1. /SCALE J 
IF  C1UJT.NE.1)  GO  TO  605 
30  602  1  -1,1  MAX 

WRITE  (6,603)  (F (I, J), J-L, JMAX) 

602  CONTINUE 

603  FORMAT* H  ,2LF6.0) 

605  CONTINUE 

IF  ( IFLAG.EQ.5)  GO  TO  5 
30  3  1-1,31 
3  M ASK ( I  J  -2***  31-1  ) 

SET  JP  LOOP  CONTROLLING  SELECTION  OF  CONTOURS 


l FLAG-5 

5  I  MAX1-I MAX-1 
JMAXl-JMAX-l 
IF  ( MODE • NE • 3 )  GO  TO  10 
-  M I  N  -  A  R  S  2 
C0NINT-ARG2 
NCONS-L 
GO  TO  1? 

10  M  A  X  -  F  ( 1,1) 

: M I N-F  M  4 < 

30  12  1*1, IMAX 
30  12  J - 1 , JMA  X 
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:flIN«AHHl(FliM,F(I,J)) 

12  =MAX-AMA<1(  FNAX  ,F  (  I  ,  J  )  ) 

IF  (rtUOE.NE.5)  GU  TO  123 
AR( 3)  -AR  ( BI^MAX 
AR(2)»AR{ 2)*F MAX 

A  RG  2  - ( A  R ( 3)-AR ( 21  I / AR ( 1) 

120  CONI NT»A RG2 

IF  (NJ3E.NE.2)  Gf)  TU  13 
C  IF  M30E  -2  SELECT  A  CONTOUR  INTERVA. 

algcnt=*a.ogi:i(ifmax-fmis)/arg2) 
n  -  a  l  g  c  s  r 

ALGCNT  =  A10D( ALGCNT , 1.  ) 

I  F  ( ALGC NT.GE .0.  J  GO  TO  Id 
N  -  N  -  L 

ALGCST-L, ♦ALGCNT 

18  8-ALGCNT 

A  » 1  • 

30  19  I -L  ,5 

C*=ABSl  A_GCNT-ALG(I.  )  ) 

IF  (C.GE.3)  GO  TO  19 
3  -  C 

A-AC( I) 

19  CONTINUE 
;0NINT-A»13.**N 

C  DETERMINE  NUMBER  OF  CONTOURS  AND  MINIMUM  VALUE 

13  IF  C  .=  M I  S.GT.3.  »  FMIN-FMI  N ♦£ ON  I  NT 
=  MIN-CON  I  NT* A I  NT IF NlN/CQSllNT ) 

IF  IFMAX.LT. 3.)  FM.GX-FMAX-CONINT 
FMAX»CONINT*AInT{FSAX/CONINT) 

IF  IM03E.LT. A)  GO  TO  11 
=MIN-AMAXl(FtlN,AR(2)  i 
FHAX-AMI  NKFMAX  *  AR  I  3)  I 
11  NCONS-IF NAX-FMI  N)/C0NINT«-1. 

ncons-mino(n:ons*43i 

IFINC0N5.LE.D)  GO  TO  7033 
C  DETERMINE  NJ16ER  OF  DIGITS  IN  LABEL 

15  3FL=l.E-4*C0NlNT 
IFIN3GT.GE.0)  GO  T3  20 
NDGT  *0 

21  IF  IABSI  AMDD(C0NlNT*10.**NDGT*l.) ).LT.DEU  GO  TO  20 
NDGT  =  N  3  G  T  ♦  1 

IF  (NOGT.LT.il)  GO  TO  21 
C  INSURE  THAT  NO  POINT  IS  EXACTLY  ON  A  CONTOUR 

20  30  32  I-l.IMAX 
30  32  J«i, UMAX 

32  IF  I ABS( AMODI F ( I  *  J) ,CONI NT)  ).LT. DEL )  F I  1 » J ) - 1 . 0 0000 1*F ( I ♦ J ) ♦ 2 • *  DEL 
C  START  CONTOUR  PLOTTING 
<0NT‘UR=3 

16  <ONTUR =< 3NTUR+  1 

CON-FHI N»C0NlNT*FL3AT (XONTJR-1) 

C  WRITE  (6*620  )  C UN * ? M I N , C ON  I NT, K3 NT  JR 

C  620  -  OR  M  A  T (  L  3  *5X,  CON  ,F13.4,  F  MI N  »F10.4»  CONINT  ,F1D.4,  KONT 
C  1UR  *19) 

30  14  N ? -  1 *  I  3 F  S 

14  F  S  (  HP  )  ■»  3 
C 

C  BEGIN  EDGE  SEARCH 
C 

.PLOT  - • F  ALSE  . 

JE-0 

17  J  E  -  JE  ♦  l 
IRET-L 

42  3 - T (  IMAX,Jt)-CON 
C-F  (  IMAX*  UE  *1  )-COL 

IF  CC*O.CT.O.)  GL  TO  22 

I  E  -  MAXI 

NIN-3 

E YE -F  LO AT ( I  MAX ) 

JAY-GC JE  »  D . C ) 

GO  TO  53 

22  IF  (JF.NE.JMAX1)  GJ  TO  17 
IE-0 

23  I  E  ■  I  E  ♦  1 
IRE  T  3  2 

43  A-F  (lE.l)-C(JN 
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3-F ( IE  *1. 1) -CON 

if  i  a»d.  gt.o.  j  go  ro  24 

"I  I  N  =*  <« 

JE-1 

EYE-G! IE  t A,D) 

J  A  Y  3 1 « 

GO  T  3  53 
24  I  RE  T  =  3 

41  3 -F  (  IF.  ,  J1AX)  -CCN 
:»F(IE*l,JMA<) -COM 
l F( b*C.G) .0. ) GO  TO  26 
N  I  N  -  2 
JE- J1AX1 
E  YE -G !  IE  *8, Cl 
JAY  -FLDAT! JMAX ) 

GO  TO  53 

26  l  F(  IE. ME.  IMAXDGO  TO  23 
C  BEG  I S  I STE  R l 3R  SEARCH 

IE-0 

27  IE-IE+1 
_PLOT«.TRUE. 

IF!IE.E3»l)LPL0Ts*.=A_SE. 

JE  -0 

39  JE-JE+1 
IRET-4 

40  A-ECIE*JE)-CON 

3 -F I IE,JE*1)-C0H 
IFIA$B»GT*3.)Gn  TO  30 
SIM-1 

EYE-FLOAT!  IE  ) 

JAY-G1 JE »A,B) 

GO  TO  53 

30  IF  1  JE*SE  .  JMAXDGO  TO  39 
IFIIE.SE.  IMAXDGO  TO  27 

IF!<0NTJR.NE.NCflliS.AND.<3EG.LT.83>30  TO  16 
C  PURGE  I N I T I  A  _  POINTS  8  OFFER 

C  SEARXH  S  TOR  E  3  IN  I  T  I  ALP  3 1  STS  3UFFER  FDR  ONR  CLOSEST  TO  PRESENT  PEN  I' (IS  I 
<  BE  GNX- <  3 E  G-L 
IRET-5 

<BMX02«.<3EGHX/2*1 

<-0 

52  <-<♦ 1 

IF!K.LT.<BMX02)G0  TO  82 
C  RETURN  IF  AL  _  CONTOURS  ARE  PLOTTED 
IF!KDNT JR. GE.NCONS ) RETURN 
RBEG-l 
GO  TO  15 

82  IRSQM.S -  9999999 

DO  55  K8E G-l , KBEGMX 

I F 1  I 3EGI <BEG1 .EO.OIGO  T3  56 

I RSO-! I -I  BEG! KBEGII >*2*t  J-JBEG! K8EG)I**2 

IF! IRSQ. SE.OIGO  TO  53 

IF1C0N.SE.C0SSV (KBEG) IG3  TO  53 

IBEGIK8EGI-0 

GO  TO  55 

53  IF C I RSO. GE .1 RSOMN) GO  TO  56 
I RSOSN-I RS3 

<8EGMN-<  BEG 

56  GONTINJE 

C  TRACE  ASD  P-3T  CLOSEST  STARTING  CONTOUR 

IFIKbEGSS.LE.O.OR.RBEGMS.GT.lODIGO  TO  45D0 
IE-IBEG!  <  B  E  G  .1 N  ) 

JE- J3EG! <  BEGIN ) 

CON-CONS/IKBEGHNJ 
SIN- MISS/ CKBEGHN) 

IBEGIKBEGMSI-0 
DO  57  M»«1,IDFS 

57  - S I MP ) -  3 

IF !NIN._T.1.3R.H!N,GT.4) GO  TO  4533 
GO  TO  I  43,41*42 ,43) »NIN 

58  IF!  J.EQ.DIJ-l 
IF!  I.EO. 3)1-1 

IF! I.EU.lMAX) I  *  i  H  A  X 1 
I F ( J.EU.JMAX) J- JMAX 1 
GO  TO  52 
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CURVE  -OlLOW  3EGIN  ROUTINE 

C  IF  THERE  IS  tUDH  ,  SAVE  THE  INITIAL  POINT 
50  IFIKBEG.  ST.100JLPL3T-.T-i  JE. 

I F { L  PL  0  T ) GO  TO  5° 

CUNSV( Ki E  G ) “CON 
l BE  G( K3E  G  )  »  I  E 
J3EG{K3E  G)  »  JE 
NINSV(<3EG)«NIN 
<B  E  G  =  K8E  3 ♦ 1 

C  IFIKQEG.GT.IOOJGO  TO  550) 

59  I  U  I  T»  IE  *•  I  MAX*  (  JE-1  ) -1 
I  MO R I  3  I  T  /  3  L  1 
IBI T*I BI  r -31# I  WORD* 32 

I  F  (  AN3I H ASK(  IB  IT) , F5 I I83RD) ) .NE . 0 ) GO  TO  l  2  2  ,  2  A  ,  26 , 3  0  )  ,  I  R  |-  T 
<L I NG  “  .FALSE. 

IF  (  AMD  C  HAS<(  I  B  I  T  )  :  SttSK  U  WORD))  .HE.  0)  K'.’MG  “.TRUE. 

1  “IE 
J  «  JE 
C 

E  KE  Y-E Y  E -1. 

EKAY-JAY-1. 

EKEY-CSA_EI*EKE Y 
EKAY=*CS  A_E  J*EKAY 
IF(NONO._T.O)GO  TO  1000 
IF(KLISG)  GO  TO  1130 

IF  ( LPL3  T I CA_L  NUM3ER(EKEY*EKAY,SIZE»C0M»rHETA»  NDGT ) 

C  IFCLPLJDCAL.  NUMBER!  l  E  Y  E- 1 .  )  *  C  S  AL  E  I  ,  ( J  >  Y-l .  )  «*C  S  AL  E  J  ,  .  1 05  »  CO  N,  T  MF:  T 

C  1  A  » ,N  0  G  T ) 

1000  GOST  I  SUE 

C  IF (LPLOT ) CAL_  PLOT! (EYE-l.)*CSALEI,( JAV  i. )*CSALEJ,3) 

IF (LPLOT ) CALl  PLOT ( EkEY,EKAY,3) 

c 

1100  CONTINUE 

<L I NG  -  .TRUE. 

EYE/ RO “EYE 
JAY/RO-JAY 
<LOG“.F A.SE. 

I  P  E  N  “  2 

HALT-.F A_SE. 


CURVE  =ALL3VING  ROJTI/iE 
60  A“F (  l  ,  J  ) -CON 
3-FII ,J*i)-CON 
C  »F  (  1*1,  J+n-CON 
)-F ( I *1 ♦ J ) -CON 
I B I T“ I ♦ I MAX* ( J-))-l 
I  H3R0“I  31  T /  3  1  ■*  1 
lBIT“Ii)IT-3l*lwORD*32 
-  S  ( I  M  0  R  0 ) “  OR (F S ( I  HURD) , HASKIIB I T  )  ) 

JPP“1 

I F ( A  A  C • G  E . 0. ) JPP« J^P*! 

IF  (BPD.GE.O,  )  JPP*JPP«-2 
I F ( JPP.E3.5JGO  TO  55 
73  HOJT»NPT(NIN,JPP) 

GO  TO(72, 75,76, 7b),NUUT 

55  I F (APB) 5 5, 56, 5 7 

56  J  P  P “ 2 

GO  TO  73 
C  57  I  M  1  *  I  —  1 
C  J  M  1  “  J  —  1 

C  l  P  2  “  1  *■  2 

C  J  P  2  “  J  *  2 

C  WUTE(b,5>)  I  ,  J,  NIN.CON,  C  (  F  (  IZ,  JZ)  ,1 /-IN1,IP2)  ,  J  Z-JH1,  JP2. ) 

C  55  -  0  R  N  A  T  I  23H1ERR0R  IN  CONTJR  FOR  I I  2  <  3H?  J«*  I  2 , 5H,N  I N-,  1 1 , 1  ?Ji ,  A  NO 
C  1C0NT JR*. E lb. 3// ( 5E ZO. 8) ) 

57  GO  TO  (22, 25,26,30, 5 8)»IRET 
72  EYE“Fl3AT (  I  ) 

J  A  Y»  G  (  J  ,  A  ,  B  ) 

IF(  I.FO.I  )HA_T'  ;  R  J  E.  . 

I  -  I  - 1 
GO  TO  30 
75  E  YE  “G  (  I  ,  3  ,C> 

JAY-FLOAT  I  J ♦ L I 

IFI  J.EO.  J  MAXI  )H,.LT -.TRUE, 

J  -  J  ♦  1 
GO  TO  8  0 
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76  EYE-FLOAT (I*l> 

JAY-S(J»0»C) 

IF  (  I  .EO.  I  MAXI ) HALT*. TRUE. 

I  -  I  ♦  1 
30  TO  80 
78  EYE-Gd  ,  A,DJ 
JAY-FLOAT  (  J) 

I F ( J.EQ. 1>HALT«.T* JE. 

J- J-L 

C  80  IF  (LPLOT  JCALL  P  LOT  (  C  E  Y  E  -  L.  )  «■  CS  AL  E  I  ,  I  JA  Y-l.  )  *  CS  AL  E  J  ,  I  PE  N ) 

C 

80  CONTINUE 

<L I NG  -  .TRUE. 

IF  (AMO(NASK(  IBIT)»:SMSK(  I  WORD)  ). NE. 0)  KLING-. FALSE. 

THING  -  .FALSE. 

IFUPEN.Ea.3I  THING  -  .TRUE. 

IPEN  -  3 

IF (KLIN3 J  I  PEN  -  2 
IFCTHIN3)  IPEN  -  3 
EKEY-Ef E-l. 

EKAY- JAY-1. 

EKEY»CSA-El*EKEY 
EKAY-CS4_EJ*EKAY 

IF (LPLOT ) CALL  PLOT ( £ KE Y » E K A Y , I P E  N ) 

I  F (KLQG. AND. EYE .EQ.EYEZRO. AND. JAY.EQ. JAY2R3 ) HALT -.TRUE. 

I F ( HALT  ISO  TO  90 
IPEN-1 

NIN-NPT ( NOUT, 1) 

<LOG-.TR JE. 

30  TO  60 
IRVE  F  OLLOW  END 

90  IF  (NONO.-T.O)GO  TO  1001 
IFUPEN.EQ.3)  GO  TO  1001 

I F (LPLOT ) CAL _  NUM3 ER ( EKE Y, EKAY, SIZE, CON. THETA.HDGT) 

IF (LPLOT  >C ALL  NUMBER! (EYE-l. )*CSALE I ,( JAY-1.  ) *C S AL E J , . 106 , CON , T HE T 
1A.NDGT) 

.001  CONTINUE 

GO  TO(Z2,2A,2b,30.58),IRET 

*5  00  NRITE(5,<*501)NIN,K3EG,KBEGMX,K,IE,  JE , KONT JR , CON ,KBE GMN 
.501  -ORMAT(<*  NNIN-,  I15/5HKBEG-,  1 15/ 7H ,<B  E  GMX- ,  II 5 / 2 HK  - ,  1 1 5/ 3H I  E -  ,  115/ 
$3HJE-»I  1 5 / 7H<  UNTUR  -  1 15/ ANCON-, E20.8/  7HKBE  GMN  -  ,  1 15//  ) 

<  B  E  G  - 1 
GO  TO  16 

>00  NR  1  TE ( 5  . 7001 ) 

)01  :0RHAT(H1/5X,”  ERR  NEGATIVE  NO.  OF  CO  NTO  JR  S  "/  1H1  > 

RETURN 

END 
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CUSTER  DIAGRAM  PROGRAM 


This  program  consists  of  three  major  parts:  subroutines  to  load  arrays, 
a  section  to  prepare  for  the  plotting,  and  a  section  to  do  the  plotting. 
Prior  to  loading  the  data  arrays  a  certain  amount  of  information  is  read  in. 
Part  of  this  is  read  in  in  the  main  program  and  the  rest  is  read  in  in 
DIRLD  from  which  it  is  passed  back.  DIRLD  loads  the  direction  array. 

MAGLD  loads  the  magnitude  array.  After  these  two  arrays  are  loaded,  the 
min  and  max  of  the  magnitude  array  are  found.  The  program  next,  goes  about 
drawing  a  box  around  the  defined  region  and  putting  a  title  on  it.  The 
final  phase  of  the  program  is  to  actually  draw  the  arrows  and  then  dump 
the  buffer. 
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INPUT  LIST  FOR  CUSTER  DIAGRAM  PROGRAM 


FORMAT 

VARNAME 

DESCRIPTION 

110 

NCHAR 

number  of  characters  in  title 

8A10 

TITLE 

title  of  graph 

2F10.5 

XL,YL 

x— axis, y- axis  length 

2110 

NXPTS.NYPTS 

number  of  points-  x,y  direction 

NOTE:  THE  FOLLOWING  VARIABLES  ARE  REAd 'in  DIRLD. 


110 

NGRID 

number  of  grid  points 

110 

NF 

number  of  frequencies 

110 

NB 

number  of  words  in  buffer 

110 

I0FSET 

number  of  words  of  stuff  before  grid  point  info  starts 
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NCilAR  -  number  of  characters  in  title 

TITLE(8)  -  80  characters  to  be  used  as  a  title  for  the  graph 
NXPTS  -  number  of  points  in  the  X  direction 
NYPTS  -  number  of  points  in  the  Y  direction 

NGR1D  -  number  of  grid  points  on  tape  (same  as  NGRID  in  Wave  Model) 

NF  -  number  of  frequencies 
XL  -  length  of  x-axis  in  yinch.es 
YL  -  length  of  Y-axis  in  inches 

DX  -  distance  between  each,  point  in  x  direction  as  it  is  plotted 
distance  pen  moves  in  x  direction  each  time  it  plots  a  point 

DY  -  distance  pen  must  move  in  Y  direction  each  time  it  plots  a  point 

MAXLEN  -  maximum  length  of  an  arrow 

MINLEN  -  minimum  length  of  an  arrow 

NOTE:  data  is  always  scaled  to  use  full  arrow  range 

MAXVAL  -  maximum  data  value 

MINVAL  -  minimum  data  value 

Tl  -  size  passed  to  SYMBOL  for  arrow 

T2  -  angle  of  rotation  passed  to  SYMBOL  for  arrow 

X  -  x  coordinate  of  where  the  arrow  is  to  be  drawn 

Y  -  y  coordinate,  of  where  the  arrow  is  to  be  drawn 

VALRAN  -  range  of  values  (MAXVA'L-MINVAL) 

MAG(20,20)  -  magnitude  array,  data  for  magnitude  of  arrow  is  read  Into  here 

D1R(20,20)  -  direction  array,  data  for  direction  to  rotate  arrow  is 

read  into  here 

BUFFnK(151 I )  -  temporary  input  buffer 


NB  -  size  of  buffer,  number  of  words  to  be  read  at  a  time 

IOFSET  -  length  of  preliminaries,  number  of  words  of  data 
that  occur  prior  to  the  first  grid  point  value 
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DIRLD  -  subroutine  to  load  direction  array 
PARAMETERS  - 

NGRID  -  number  of  grid  points ,used  to  determine  index  into  buffer 

DIR(20,20)  -  direction  array,  array  to  be  loaded  with  direction  information 

IX  -  number  of  points  in  x  direction 

IY  -  number  of  points  in  y  direction 

NF  —  number  of  frequencies 

BUFFER(1511)  —  temporary  input  buffer 

NB  -  actual  minimum  buffer  size  in  words 

IOFSET  -  number  of  words  of  information  preceding  grid  point  information 
VARIABLES  - 

IND  -  index  into  BUFFER,  indicates  which  element  of  BUFFER  is  loaded  into  DIR 
I  -  loop  index  variable 
J  -  loop  index  variable 

TEXT  - 

This  subroutine  loads  the  direction  array,  DIR.  READS  is  called 
to  load  BUFFER  with  the  correct  values.  An  offset  of  11  words  exists 
on  SRECs  before  the  grid  point  information  is  started.  The  direction 
values  begin  2*NGID  words  beyond  the  offset,  hence  IND  starts  with  a 
value  equal  to  IOFSET >2*NGRID. 


MAC1.U  -  subroutine  to  load  magnitude  array 
PARAMETERS  - 

MAG(20,20)  -  magnitude  array,  array  used  to  hold  raw  magnitude  values  for 
arrows 

IX  -  number  of  points  in  x  direction 
IY  -  number  of  points  in  y  direction 
BUFFER  -  input  buffer 
NB  -  size  of  input  buffer  in  words 

IOFSET  -  number  of  words  of  information  prior  to  grid  point  information 
VARIABLES  - 

IND  -  index  into  BUFFER 
EPM  -  normalization  constant 
1  -  do  loop  index  . 

J—  do  loop  index 

TEXT  - 

This  subroutine  loads  the  magnitude  array,  MAG.  The  routine  assumes 
that  DIRLD  has  already  loaded  BUFFER  for  it.  The  magnitude  information 
starts  right  after  the  offset,  hence  IND  starts  at  IOFSET+1. 
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EXTRKM  -  this  subroutine  finds  the  minimum  and  the  maximum  in  a  two-dimen¬ 
sional  array. 

PARAMETERS  - 

A(idim, jdim)  -  array  to  be  searched 
IDIM  -  dimesion  of  A  (first) 

JDIM  -  dimension  of A  (second) 

MIN  -  minimum  value  found 
MAX  -  maximum  value  found 

VARIABLES  - 

I  -  do  loop  index 
J  —  do  loop  index 

TEXT  - 

This  subroutine  searches  a  2— d  array  and  determines  the  minimum  and 
maximum  values  contained  in  the  array. 
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READS-  this  subroutine  reads  an  SREC 
PARAMETERS- 

LUN  -  logical  unit  number,  device  number  of  tape  with  SREC 
BUFFER  -  input  buffer  that  is  to  receive  the  SREC  data 
NB  -  number  of  words  to  be  read  in 
NF  -  number  of  frequencies 

LOCAL  VARIABLES- 

I  -  do  loop  index 

DUM  -  temp  location  used  to  reaa  into  while  skipping  over  records 

* 

t 

TEXT- 

» 

This  subroutine  spaces  the  tape  forward  to  the  SREC  and  then  loads 
it  into  BUFFER.  The  number  of  words  read  in  depends  on  NB. 
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PROGRAM  CUSTER!  I  (.'PUT  ,  0UTPUT,TAPF5=-INPUT»1APL6=*UUTPUT» 

♦  TAPT  1.  ,TAPf  2,T.\PE7) 

C 

C  THIS  PROGRAM  DO FA  A  Gf  ML  HAL  CUSTFR  PLOT* 

C  S  U  OR  OUT  I NF.  DIRLD  LOADS  THE:  DIRECTION  ARRAY 
C  SUOR  OUT  INF  MAGLD  LOADS  THF  MAGNITUDE  ARRAY 

INTEGER  NCHAR  ,  T  I  TL  E  (  B  )  ,  S  XP  T  S  ,  V.  Y  P  T  S  ,  NCR  I  0  ,  NF 

RFAL  XL,YL,DX,OY,;lAXLF.N,MINL[N,MAXVAL,MINVAL,Tr;h,X,Y,Ti 

REAL  rt.\G(  20,20)  ,D1k  (20,29  ) 

U:AL  BUFFER (1511) 

R  F  A 0  C  :> ,  1 A  ?•  C  )  NCHAR 

1000  FORMAT!  tfl  \  r.) 

M'AOISK'HJ  T  I  T L !. 

1001  FORMAT (dA10) 

HRITct(,,?rOO)  MCHAR,  TITLE 

2000  FORMATIM  NCHAR  =  ,1 2  ,/ , 7H  T  1  TLF  =  »  8 A1 0 ) 

RrAr:-(A,ir,:v)  xl.yl 

1002  -  OR  MAT! 8F 10.5) 

U  AD(  5, 1300)  NX PTS  » NYP T  S 
WRITE(t>,2  001)NXPTS,XL,NYPrS,YL 

2001  FURMATdH  ,I3,11H  POINTS  ON  ,F7.4,12H  LONG  X-AXIS,/, 

♦  1H  ,  I  3 , 1 1.  H  POINTS  ON  ,F7.4,12H  LONG  Y-AXIS) 

3X=XL/NXP  T S 

DY-YL/NYPTS 
WRITE(6» 2002)  DX,UY 

2002  FORMAT  (  V<  0  X  »  ,  F  7  .  A  ,  1 0  X  ,  DY-,,F7.5> 

MAXLFN  =  AMIN1( OX  ,0Y ) 

M 1 NLE  N  =  0.  05 

CALL  OIR.OINGRI  0,01  R  ,  NXP  T  S  ,  NYPT  S ,  NF  ,  BUFFER,  Nfi ,  I  OFSFiT) 

CALL  MAGLD ( M AG, NXPTS.NYPTS, BUFF ER,NB, IUFSET  ) 

CALL  EXTRFMMAG  ,  N  XP  T  S  ,  N  Y  P  T  S  ,  M I  N  V  AL  ,  M  AX  V  AL  ) 

V  ALP.  AN  =  M  A  X  V  A  L  —  M  I  NV  A  L 
C  INITIALIZE  PLOTS 

CALL  PLOTStO. 0,0.0, 7) 

C  MOVE  AWAY  FROM  EDGE  0^  PAPER 
CALL  PLOT (0 .5, 0.5, -3) 

C  DRAW  BOX 

CALL  PLOT  (-0X/?.0,-DY/2»9,3) 

CALL  PLOT (-DX/2.0, YL ♦ DY / 2. 0 , 2 > 

CALL  PLOT  (XL-‘i)X/?.0,YL*0Y/2.0,2) 

CALL  PLOT  (XL  ♦OX/2.0 ,-DY/2.C ,2) 

CALL  PLOT (-DX/2.0,-DY/2.0,2) 

CALL  PLOT  (OX/?.  0,f)Y/2.0,-3) 

CALL  SYMBOL!  0.0  ,  Y  L  ♦  0  Y  ,0»?5, TITLE  »r,*0,NCHAk) 

CALL  SYMBOL! (-2 *DX  ) ,0.0,1 AXLE N, 105, 0.0,0) 

X=0.9 

Y  =  0  •  0 

WRITE (  b  ,  )  NXPTS  , XL, NYPT  S,YL 

30  100  1  =  1, NXPTS, l 

on  no  j  =  i,nypts,  l 

T  J.  =  MINLFN  +  ( (  MAG!  I ,  J)-MlMVAL  )  /  VALRAN)  *(  II AXL  FH-M1  ML  E  N ) 
T2  =  DIR (  I  , J  ) 

CALL  S YMPOL! X  ,Y, T1 ,105,T2 , 0 ) 

Y  =  0Y  + Y 

WRITE (0,60)  l , J  , X * Y , M AG! I , J ) , 0 1 R ( I , J ) 

-OkMATOH  ,  I5,5X,I5 ,5X,Flo.5,5X,Fl0.5,5X,Flf).  5, 5X,F  10,5  > 
CONTI  Nil: 

X  =  D  X  ♦  X 
Y  =  0  •  0 
CONTINUE 

CALL  PLOT (0,0,999) 

STOP 
END 


60 

90 

100 
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SUBROUTINE  l)IRLO(UGkIO, DIR. IX, IY,NF,BUFFER,NB, IOFSET) 

REAL  OIR(?n,2r >  ,BUFFER< 1511) 

C  THIS  SUBROUTINE  LOADS  THE  DIRECTION  ARRAY 
C  NCRIO  -  NUMBER  OF  GRID  POINTS 
C  NF  -  NUMBER  OF  FREQUENCIES 
C  NB  -  BUFFER  SIZE 
C  IX  -  FIRST  DIMENSION  OQ  DIR 
C  IY  -  SECOND  DIMENSION  OF  DIR 
C  DIR  -  DIRECTION  A  RAY 

C  IOFSET  -  NUMBER  OF  LOCATIONS  TO  SKIP 
C  IND  -  USED  AS  INDEX  INIQ  BUFFER 
C  BUFFER  -  INPUT  BUFFER 
READ!  5,1000)  NGP.IO 
1000  FORMAT! 51 10) 

WRITF(b*20D'»)  NGP.IO 

2000  F  ORMA  T ( 7  M  NGRID^,I5) 

READ (5* 1000)  NF 
KRITE (6,2001)  NF 

2001  F  ORMAT ( 4H  NF*,I5) 

READ(5, 10001  NB 
WP.  ITE(6»2902)  NB 

2002  =ORHAT(AH  NB=,I5) 

READ  (6,1000)  IOFSET 
NRI TE (6,2003)  I OFSET 

2003  F0RMATI8H  I0FSET=,I5) 

CALL  READS! 1, BUFFER, NB,NC ) 

IND-I0FSET*2*NGRID«-1 

DO  10  J  =  1  , 1 Y, 1 

DO  10  1-1, IX, 1 

DI  R ( I , J ) =360-AM0Dt ( 5 7. 296* BUFFER! IND) ) ,36  0.0 ) 

I  NO “1+ I  NO 
10  CONTINUE 
RETURN 
END 
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SUBROUTINE  MACLDtriAG*  IX*  I Y  *  BUFF  F  K  , NB  ,  I  Of  SE  T  ) 

INTEGER  I  X,  I  Y  ,NB,1  OF- SET,  I  NO 
R  E  AL  MAG(  IX,  I  Y  )  ,6UFFER(NB  ) 

1NI)=IOFScT 
EPM  =  fc ,nb2?,'yi 
DO  20  J=i,IY,l 

OD  LO  1=1,  IX,  l 
IND=1+I NO 

rt  A  G  C  I  »J)=RUFFEk(  I  S  i)  )  /  F  P  M 
CONTINUE 
CONTI  NUT 
RETURN 
END 


on 
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SUBROUTINE  E XTR EM( A  » 1 01 M»  JO IM » M I N » MAX  ) 

THIS  SUBROUTINE  FINDS  THE  MIN  AND  THE  MAX  OF  A  2-0  ARRAY 
INTEGER  IOIrt, JOIN, I  ,  J 
REAL  AC IOIM*JOIri),MlN,MAX 
HIN*A(l,l» 
i A  X  =  M I N 

DO  20  1=*1.  »IDIM»1 
DO  10  J»l,JOIrt»i 

H I N=AMI N1  (MI N ,A(I , J  >  > 

M  A  X  -  A  M  A  X  1  (  M  A  X  t  A  (  I, J)  ) 

10  CONTINUE 

20  CONTINUE 
RETURN 
END 
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SUBROUTINE  READS 


C 

C 


C 

C 

10 

c 

c 

c 

20 

c 

c 

50 

1000 

c 

c 


SUBROUTINE  READS  (LUN,  BUFFER*  N»,  NF  ) 

SUBRUUTISr  TO  READ  SUMMARY  RECORD  -  - 

SUMS  OVER  FREQUENCY  AND  DIRECTION. 

R ( AL  BUFFER (MB) 

REWIND  LUM 
SKIP  TO  SRFC. 

TO  10  1=1, NF 

BUFFER  IN  (LUN,1)  (  U  U  ,1 ,  D  J  M  ) 

IF  (UNIT  (LUM))  10,  50,  50 

:ont I  NUT 
Rf  AO  S R EC. 

BUFFER  IN  (LUN,1)  (  BUFFG  U  1 )  ,BUFFE  R  (N«  )  ) 

IF  (UNIT  (LUN)J  20,  50,  50 

CONTINUE 
REWIND  LUN 

RETURN 

WRITE  (b,100C)  LUN 

FORMAT  (32HD*  «  ->  ERROR  DR  EUF  READING  UNIT,  13, 6H  * 

STOP 

END 
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